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Preface 


This publication contains quick reference information for the experi¬ 
enced programmer and systems support personnel. For the most part, 
definitions, restrictions, and limitations have been omitted to provide 
the most rapid access to the information in this publication. If the 
reference to information included here is not sufficient, refer to the 
publication list on the first page of each section; then refer to the 
applicable System Reference Library publication. 

For information concerning the Mass Storage System and allied devices, 
see Mass Storage System (MSS) Principles of Operations, GA32-0029. 

This publication does not contain information about system control 
blocks. Refer to OS/VS1 System Data Areas, SY28-0605, to find this 
information. Some information useful in debugging the system is con¬ 
tained in this publication. For additional information, refer to OS/VS1 
Debugging Guide, GC24-5093. 


Sixth Edition (November 1975) 

I This edition, together with Technical Newsletter GN24-5525, applies to Release 
6 of OS/VS 1 and to all subsequent releases until otherwise indicated in new 
editions or Technical Newsletters. Changes are continually made to the information 
contained herein; before using this publication in connection with the operation of 
IBM systems, consult the IBM System/370 Bibliography, GC20-0001 for the editions 
that are applicable and current. 

Summary of Amendments 

I For a list of changes, see page 3, and the TNL (GN24-5525) cover letter. 

Information on the 3203-4 and ECPS (Extended Comrol-Program Support) is for 
planning purposes only until the availability of the 3203-4 and S/370 Models 135-3, 
138, 145-3, and 148. 

A handbook-sized binder, FE part number 453559, may be purchased from IBM. 
Customers may order it through their IBM marketing representative. IBM person¬ 
nel should order it as an FE part from Mechanicsburg. 

Requests for copies of IBM publications should be made to your IBM representative 
or to the IBM branch office serving your locality. 

A form for reader’s comments is provided at the back of this publication. If the 
form has been removed, comments may be addressed to IBM Programming Publica¬ 
tions, Dept. G60, P.O. Box 6, Endicott, New York 13760. Comments become the 
property of IBM. 

© Copyright International Business Machines Corporation 1973, 1974, 1975, 1976 
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This Technical Newsletter, a part of Release 6 of OS/VS 1, 
provides replacement pages for your publication. These replace¬ 
ment pages remain in effect for subsequent OS/VS 1 releases unless 
specifically altered. Pages to be inserted and/or removed are: 


Cover through 6 
7, 8 (Removed) 

1- 7, 1-8 

2- 3 through 2-18 

2-31 through 2-34 

2- 41, 2-42 (Added) 

3- 5, 3-6 

3-11 through 3-26 


4-5, 4-6 

4-9, 4-10 

4- 13, 4-14 

5- 7 through 5-20 

6- 7, 6-8 

8-1 through 8-8 
8-45 through 8-48 


8-55, 8-56 
8-69 through 8-82 
(Removed) 
Section 9 
Index 5, 6 
11, 12 

15 through 18 


A change to the text or to an illustration is indicated by a vertical 
line to the left of the change. 


Summary of Amendments 

This Technical Newsletter contains editorial changes and additions 
for Release 6, including: 

UCB Sense Bytes for Channel-to Channel Adapter and 3203-4 
Trace Table entry for External Interrupts 
PGOUT macro outline 

OPEN macro changes for Open/Extend support 

New console reply format 

3800 Printer BURST Parameter 

3790 RES Workstation Command Changes 

Simplified WRITER Command 

New UCS Operands for the ICAPRTBL Utility 

Extended Control - Program Support 

SMP Reference Summary information has been removed from 
Section 8; refer to OS/VS System Modification Program (SMP), 
System Programmer’s Guide, GC28-0673 for this information. 

Information on the 3203-4 and ECPS (Extended Control-Program 
Support) is for planning purposes only until the availability of the 
3203-4 and S/370 Models 135-3, 138, 145-3, and 148. 

Note: Please insert this page in your publication to provide a 
record of changes. 
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Summary of Amendments 
for GC24-5091 -5 
as updated by GN24-5525 
VS1 Release 6 

Sections 2, 3, 4, 5, and 8 contain information included for the first time. 

This material includes: 

SECTION 2 

UCB Sense Bytes for Channel-to-Channel Adapter and 3203-4 
New Trace Table entry for External Interrupts 

Virtual Storage Organization 

New Wait State Code for Extended Control-Program Support (ECPS) 

SECTION 3 
PGOUT Macro outline 
SECTION 4 

OPEN Macro changes for Open/Extend support 
3800 Printer BURST parameter 

SECTION 5 

3790 RES Workstation Command Changes 
Simplified WRITER Command 
New Console Reply Format 

SECTION 8 

The addition of the DEVT, FCB, and UCS operands for the ICAPRTBL utility. 

Information on the 3203-4 and ECPS (Extended Control-Program Support) is for 
planning purposes only until the availability of the 3203-4 and S/370 Models 
135-3, 138, 145-3, and 148. 


Summary of Amendments 
for GC24 5091-5 
VS1 Release 5 


Sections 1, 2, 4, 7, and 8 contain information included for the first time. 
This material includes: 

SECTION 1 

Fractional-value Decimal/Hexadecimal conversion table 
Command Codes for 3350 DASD 
Virtual-to-Real Address Translation 

SECTION 2 

UCB Sense Bytes for 3350 DASD, 3800 Printing Subsystem 
Device Statistics Table for 3540 

SECTION 4 

Device Capacities for 3350 
3540 Standard Labels 

SECTION 7 

VTAM Network Operator Commands 
SECTION 8 

3800 Printer high density dump parameters 
IEBIMAGE, a 3800 data-set utility 

The 3350 Direct Access Storage information and 3800 Printing Subsystem 
information contained in this publicaion is for planning purposes only until 
the products become available. 


Summary of Amendments 3 
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Summary of Amendments 
for GC24-5091-4 
VS1 Release 4 


Sections 2 and 8 contain information included for the first time. This 
material includes: 

SECTION 2 

New-format Trace Table 
UCB sense bytes for 3540 
VS1 Storage Subpools 

SECTION 8 

SMP Reference Summary 

In addition, all sections contain substantial additions, corrections, and 
improvements. Review them in their entirety for new and modified 
information. 
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Section 1: General information 


This section contains a variety of general information needed to 
write assembler language programs. 


Source Publications 


Additional information about the System/370 and valid instructions 
is contained in IBM System/370 Principles of Operation, GA22-7000. 

Additional information about the System Assembler is in OS /VS, 
DOS/VS, and VM/370 Assembler Language, GC33-4010. 
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Code Translation Table 


Dec. 

Hex 

Instruction 

(RR) 

Graphics and Controls 
BCDIC EBCDIC(l) ASCII 

7-Track Tape 
BCDICI2) 

Card Code 

Binary 

0 

00 


NUL 

NUL 


12-0-1-8-9 

00000000 

1 

01 


SOH 

SOH 


12-1-9 

00000001 

2 

02 


STX 

STX 


12-2-9 

00000010 

3 

03 


ETX 

ETX 


12-3-9 

00000011 

4 

04 

SPM 

PF 

EOT 


12-4-9 

OOOOOlOO 

5 

05 

BALR 

HT 

ENQ 


12-5-9 

0000 0101 

6 

06 

BCTR 

LC 

ACK 


12-6-9 

0000 0110 

7 

07 

BCR 

DEL 

BEL 


12-7-9 

0000 0111 

8 

08 

SSK 


BS 


12-8-9 

0000 1000 

9 

09 

ISK 


HT 


12-1-8-9 

0000 1001 

10 

0A 

SVC 

SMM 

LF 


12-2-8-9 

0000 1010 

11 

0B 


VT 

VT 


12-3-8-9 

0000 1011 

12 

OC 


FF 

FF 


12-4-8-9 

0000 1100 

13 

0D 


CR 

CR 


12-5-8-9 

0000 1101 

14 

0E 

MVCL 

SO 

SO 


12-6-8-9 

0000 1110 

15 

OF 

CLCL 

SI 

SI 


12-7-8-9 

0000 1111 

16 

10 

LPR 

DLE 

DLE 


12-11-1-8-9 

00010000 

17 

11 

LNR 

DC1 

DC1 


11-1-9 

0001 0001 

18 

12 

LTR 

DC2 

DC2 


11-2-9 

0001 0010 

19 

13 

LCR 

TM 

DC3 


11-3-9 

00010011 

20 

14 

NR 

RES 

DC4 


11-4-9 

0001 0100 

21 

15 

CLR 

NL 

NAK 


11-5-9 

0001 0101 

22 

16 

OR 

BS 

SYN 


11-6-9 

00010110 

23 

17 

XR 

IL 

ETB 


11-7-9 

00010111 

24 

18 

LR 

CAN 

CAN 


11-8-9 

0001 1000 

25 

19 

CR 

EM 

EM 


11-1-8-9 

0001 1001 

26 

1A 

AR 

CC 

SUB 


11-2-8-9 

0001 1010 

27 

IB 

SR 

CU1 

ESC 


11-3-8-9 

0001 1011 

28 

1C 

MR 

IFS 

FS 


11-4-8-9 

0001 1100 

29 

ID 

DR 

IGS 

GS 


11-5-8-9 

0001 1101 

30 

IE 

ALR 

IRS 

RS 


11-6-8-9 

0001 1110 

31 

IF 

SLR 

IUS 

US 


11-7-8-9 

0001 1111 

32 

20 

LPDR 

DS 

SP 


11-0-1-8-9 

0010 0000 

33 

21 

LNDR 

SOS 

i ! 


0-1-9 

0010 0001 

34 

22 

LTDR 

FS 

" 


0-2-9 

0010 0010 

35 

23 

LCDR 


# 


0-3-9 

0010 0011 

36 

24 

HDR 

BYP 

$ 


0-4-9 

0010 0100 

37 

25 

LRDR 

LF 

% 


0-5-9 

0010 0101 

38 

26 

MXR 

ETB 

& 


0-6-9 

0010 0110 

39 

27 

MX DR 

ESC 

1 


0-7-9 

00100111 

40 

28 

LDR 


( 


0-8-9 

0010 1000 

41 

29 

CDR 


) 


0-1-8-9 

0010 1001 

42 

2A 

ADR 

SM 

* 


0-2-8-9 

0010 1010 

43 

2B 

SDR 

CU2 

+ 


0-3-8-9 

0010 1011 

44 

2C 

MDR 




0-4-8-9 

0010 1100 

45 

2D 

DDR 

ENQ 

- 


0-5-8-9 

0010 1101 

46 

2E 

AWR 

ACK 



0-6-8-9 

0010 1110 

47 

2F 

SWR 

BEL 

/ 


0-7-8-9 

0010 1111 

48 

30 

LPER 


0 


12-11-0-1-8-9 

00110000 

49 

31 

LNER 


1 


1^ 

00110001 

50 

32 

LTER 

SYN 

2 


2-9 

00110010 

51 

33 

LCER 


3 


3-9 

00110011 

52 

34 

HER 

PN 

4 


4-9 

0011 0100 

53 

35 

LRER 

RS 

5 


5-9 

00110101 

54 

36 

AXR 

UC 

6 


6-9 

00110110 

55 

37 

SXR 

EOT 

7 


7-9 

00110111 

56 

38 

LER 


8 


8-9 

0011 1000 

57 

39 

CER 


9 


1-8-9 

0011 1001 

58 

3A 

AER 




2-8-9 

0011 1010 

59 

3B 

SER 

CU3 



3-8-9 

00111011 

60 

3C 

MER 

DC4 

< 


4-8-9 

0011 1100 

61 

3D 

DER 

NAK 

* 


5-8-9 

00111101 

62 

3E 

AUR 


> 


6-8-9 

00111110 

63 

3F 

SUR 

SUB 

? 


7-8-9 

0011 1111 


1 -2 OS/VS1 Programmer’s Reference Digest 



aw 








































Code Translation Table (cont'd) 




Instruction 

Graphics and Controls 

7-Track Tape 



Dec. 

Hex 

and Format 

BCDIC EBCDIC! 1> ASCII 

BCD IC(2) 

Card Code 

Binary 

128 

80 

SSM 

-s 



12-0-1-8 

1000 0000 

129 

81 



a a 


12-0-1 

1000 0001 

130 

82 

LPSW 

-s 

b b 


12-0-2 

1000 0010 

131 

83 

1 Diagnose 

c c 


12-0-3 

1000 0011 

132 

84 

WRD 

SI 

d d 


12-0-4 

1000 0100 

133 

85 

RDD 

e e 


12-0-5 

1000 0101 

134 

86 

BXH 


f f 


12-0-6 

10000110 

135 

87 

BXLE 


g g 


12-0-7 

1000 0111 

136 

88 

SRL 


h h 


12-0-8 

1000 1000 

137 

89 

SLL 


i i 


12-0-9 

1000 1001 

138 

8A 

SRA 




12-0-2-8 

1000 1010 

139 

8B 

SLA 

RS 

{ 


12-0-3-8 

1000 1011 

140 

8C 

SRDL 


<; 


12-0-4-8 

1000 1100 

141 

8D 

SLDL 


< 


12-0-5-8 

1000 1101 

142 

8E 

SRDA 


+ 


12-0-6-8 

1000 1110 

143 

8F 

SLDA 


+ 


12-0-7-8 

iooo mi 

144 

90 

STM . 




12-11-1-8 

10010000 

145 

91 

TM 

si 

j j 


12-11-1 

1001 0001 

146 

92 

MVI 

k k 


12-11-2 

1001 0010 

147 

93 

TS 

_lSj 

1 1 


12-11-3 

1001 0011 

W 

94 

Nl 1 


m m 


12-11-4 

10010100 

149 

95 

CLI | 

SI 

n n 


12-11-5 

10010101 

150 

96 

01 

0 0 


12-11-6 

1001 0110 

151 

97 

XI | 


P P 


12-11-7 

1001 0111 

152 

98 

LM 

-RS 

q q 


12-11-8 

1001 1000 

153 

99 



r r 


12-11-9 ! 

1001 1001 

154 

9A 





12-11-2-8 

1001 1010 

155 

9B 



} 


12-11-3-8 

10011011 

156 

9C 

SIO.SIOF) 

n 


12-11-4-8 

10011100 

157 

9D 

TIO.CLRIO 

) 


12-11-5-8 

10011101 

158 

9E 

HIO, HDV 

s ± 


12-11-6-8 

1001 1110 

159 

9F 

TCH 


■ 


12-11-7-8 

iooi lm 

160 

A0 





11-0-1-8 

1010 0000 

161 

A1 



° 


11-0-1 

1010 0001 

162 

A2 



s s 


11-0-2 

1010 0010 

163 

A3 



t t 


11-0-3 

1010 0011 

164 

A4 



u u 


11-0-4 

1010 0100 

165 

A5 



V V 


11-0-5 

1010 0101 

166 

A6 



w w 


11-0-6 

1010 0110 

167 

A7 



X X 


11-0-7 

1010 0111 

168 

A8 



y y 


11-0-8 

1010 1000 

169 

A9 



z z 


11-0-9 

1010 1001 

170 

AA 





11-0-2-8 

1010 1010 

171 

AB 



u 


11-0-3-8 

1010 1011 

172 

AC 

STNSM I 

■SI 

r 


11-0-4-8 

1010 1100 

173 

AD 

STOSMJ 

[ 


11-0-5-8 

1010 1101 

174 

AE 

SIGP • 

-RS 

> 

' 

11-0-6-8 

1010 1110 

175 

AF 

Imc -sjJ 

• 


11-0-7-8 

ioio mi 

176 

B0 



0 


12-11-0-1-8 

10110000 

177 

B1 

LRA ■ 

-RX 

1 


12-11-0-1 

10110001 

178 

B2 

See below 1 

2 


12-11-0-2 

10110010 

179 

B3 



3 


12-11-0-3 

10110011 

180 

B4 



4 


12-11-0-4 

10110100 

181 

B5 



5 


12-11-0-5 

10110101 

182 

B6 

STCTL 1 

•RS 

6 


12-11-0-6 

1011 0110 

183 

B7 

LCTL 1 

7 


12-11-0-7 

10110111 

184 

B8 



8 


12-11-0-8 

1011 1000 

185 

B9 



9 


12-11-0-9 

10111001 

186 

BA 

cs ] 

RS 



12-11-0-2-8 

10111010 

187 

BB 

CDS | 

J 


12-11-0-3-8 

10111011 

188 

BC 



n 


12-11-0-4-8 

10111100 

189 

BD 

CLM 1 


] 


12-11-0-5-8 

10111101 

190 

BE 

STCM 

RS 

+ 


12-11-0-6-8 

10111110 

191 

BF 

ICM J 


- 


12-11-0-7-8 

ion nil 
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Code Translation Table (cont'd) 


Dec. 

Hex 

Instruction 

(SS) 

Graphics and Controls 
BCDIC EBCDIC! 1) ASCII 

7-Track Tape 
BCDIC(2) 

Card Code 

Binary 

192 

CO 


? 

{ 


B A 8 2 

12-0 

1100 0000 

193 

Cl 


A 

A 

A 

B A 1 

12-1 

1100 0001 

194 

C2 


B 

B 

B 

B A 2 

12-2 

1100 0010 

195 

C3 


C 

C 

C 

BA 2 1 

12-3 

1100 0011 

196 

C4 


D 

D 

D 

B A 4 

12-4 

1100 0100 

197 

C5 


E 

E 

E 

BA 4 1 

12-5 

1100 0101 

198 

C6 


F 

F 

F 

BA 42 

12-6 

1100 0110 

199 

C7 


G 

G 

G 

BA 421 

12-7 

1100 0111 

200 

C8 


H 

H 

H 

B A 8 

12-8 

1100 1000 

201 

C9 


1 

1 

1 

B A 8 1 

12-9 

1100 1001 

202 

CA 






12-0-2-8-9 

1100 1010 

203 

CB 






12-0-3-8-9 

1100 1011 

204 

CC 



S 



12-0-4-8-9 

1100 1100 

205 

CD 






12-0-5-8-9 

1100 1101 

206 

CE 



Y 



12-0-6-8-9 

1100 1110 

207 

CF 






12-0-7-8-9 

1100 1111 

208 

DO 


! 

} 


B 8 2 

11-0 

11010000 

209 

D1 

MVN 

J 

J 

J 

B 1 

11-1 

1101 0001 

210 

D2 

MVC 

K 

K 

K 

B 2 

11-2 

1101 0010 

211 

D3 

MVZ 

L 

L 

L 

B 2 1 

11-3 

11010011 

212 

D4 

NC 

M 

M 

M 

B 4 

11-4 

1101 0100 

213 

D5 

CLC 

N 

N 

N 

B 4 1 

11-5 

1101 0101 

214 

D6 

OC 

0 

0 

0 

B 42 

11-6 

11010110 

215 

D7 

XC 

P 

P 

P 

B 42 1 

11-7 

11010111 

216 

D8 


Q 

Q 

Q 

B 8 

11-8 

1101 1000 

217 

D9 


R 

R 

R 

B 8 1 

11-9 

1101 1001 

218 

DA 






12-11-2-8-9 

1101 1010 

219 

DB 






12-11-3-8-9 

1101 1011 

220 

DC 

TR 





12-11-4-8-9 

1101 1100 

221 

DD 

TRT 





12-11-5-8-9 

11011101 

222 

DE 

ED 





12-11-6-8-9 

1101 1110 

223 

DF 

EDMK 





12-11-7-8-9 

1101 1111 

224 

E0 


T 

\ 


A 8 2 

0-2-8 

1110 0000 

225 

El 






11-0-1-9 

1110 0001 

226 

E2 


s 

S 

S 

A 2 

0-2 

1110 0010 

227 

E3 


T 

T 

T 

A 21 

0-3 

1110 0011 

228 

E4 


U 

U 

U 

A 4 

0-4 

1110 0100 

229 

E5 


V 

V 

V 

A 4 1 

0-5 

1110 0101 

230 

E6 


w 

w 

w 

A 42 

0-6 

1110 0110 

231 

E7 


X 

X 

X 

A 42 1 

0-7 

1110 0111 

232 

E8 


Y 

Y 

Y 

A 8 

0-8 

1110 1000 

233 

E9 


z 

Z 

Z 

A 8 1 

0-9 

1110 1001 

234 

EA 






11-0-2-8-9 

1110 1010 

235 

EB 






11-0-3-8-9 

1110 1011 

236 

EC 



H 



11-0-4-8-9 

1110 1100 

237 

ED 






11-0-5-8-9 

1110 1101 

238 

EE 






11-0-6-8-9 

1110 1110 

239 

EF 






11-0-7-8-9 

mo mi 

240 

FO 

SRP 

y 

0 

0 

8 2 

0 

11110000 

241 

FI 

MVO 

i 

1 

1 

1 

1 

11110001 

242 

F2 

PACK 

2 

2 

2 

2 

2 

mi ooio 

243 

F3 

UNPK 

3 

3 

3 

21 

3 

11110011 

244 

~F4~ 


4 

4 

4 

4 

4 

11110100 

245 

F5 


5 

5 

5 

4 1 

5 

nil oioi 

246 

F6 


6 

6 

6 

42 

6 

11110110 

247 

F7 


7 

7 

7 

421 

7 

11110111 

248 

F8 

ZAP 

8 

8 

8 

8 

8 

nil iooo 

249 

F9 

CP 

9 

9 

9 

8 1 

9 

nil iooi 

250 

FA 

AP 


1 



12-11-0-2-8-9 

nil ioio 

251 

^B 

SP 





12-11-0-3-8-9 

nil ion 
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Code Translation Table (cont'd) - Machine instruction Formats 


Dec. 

Hex 

Instruction 

<SS) 

Graphics and Controls 
BCDIC EBCDIC'1) ASCII 

7-Track Tape 
BCDIC12) 

Card Code 

Binary 

252 

FC 

NIP 



12-11-0-4-8-9 

1111 1100 

253 

FD 

DP 



12-11-0-5-8-9 

mi noi 

254 

FE 




12-11-0-6-8-9 

nil mo 

255 

FF | 




12-11-0-7-8-9 

nil nn 


1. Two columns of EBCDIC graphics 
are shown. The first gives standard 
bit pattern assignments. The second 
shows the T-l 1 and TN text printing 


chains (120 graphics). 

2. Add C (check bit) for odd or even 
parity as needed, except as noted. 

3. For even parity use CA. 


code S format) 


B202 -STIDP 
B2Q3 - STIDC 
B204 - SCK 
B205 - STCK 
B206 - SCKC 


B207 - STCKC 
B208-SPT 
B209 - STPT 
B20A - SPKA 
B20B - 1PK 


B20D - PTLB 
B210 - SPX 
B211 - 5TPX 
B212 - STAP 
B213 - RRB 


Machine Instruction Formats 


FIRST HALFWORD 1 [ SECOND HALFWORD 2 | THI RD HALFWORD 3 


Op Code 


| R1 \ ~fuT\ 


7 |8 

REGISTER 
OPERAND 1 


Op Code 


;jllE 


7 8 1112 1516 1920 




0 

78 1112 1516 

1920 31 ( 

i 

i 

IIMMEDIATEl 
OPERAND | 

ADDRESS OF 1 

OPERAND 1 | 

i 

l -^ „ - 

-✓N- N 


SI Op Code 


HU 


01 


1516 1920 

^ ADDRESS OF 

OPERAND 2 


i 




Op Code 


15 16 19iO 


02 




HI 


1112 1516 1920 3132 35 36 

I I 

I ADDRESS OF I 

.ENGTH , OPERAND 1 I 


1 


| Op Code 

_ 

L 1 B1 I 

D1 

1 82 1 

D2 


V-0 78 

1516 1920 


3132 3536 


47 
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Page of GC24-5091-5 
Revised September 15, 1976 
By TNL GN24-5525 


Control Registers 


CR 

Bits 

Name of field 

Associated with 

Init. 

0 

0 

Block - multiplex'g control 

Block - multiplex'g 

0 


1 

SSM suppression control 

SSM instruction 

0 


2 

TOD clock sync control 

Multiprocessing 

0 


8-9 

Page size control 1 


0 


10 

Unassigned (must be zero) / 

> Dynamic addr. transl. 

0 


11-12 

Segment size control j 


0 


16 

Malfunction alert mask \ 


0 


17 

Emergency signal mask f 

Multiprocessing 

0 


18 

External call mask ( 

0 


19 

TOD clock sync check mask / 


0 


20 

Clock comparator mask 

Clock comparator 

0 


21 

CPU timer mask 

CPU timer 

0 


24 

Interval timer mask 

Interval timer 

1 


25 

Interrupt key mask 

Interrupt key 

1 


26 

External signal mask 

External signal 

1 

1 

0-7 

8-31 

Segment table length 1 

Segment table address / 

Dynamic addr. transl. 

0 

0 

2 

0-31 

Channel masks 

Channels 

1 

8 

16-31 

Monitor masks 

Monitoring 

0 

9 

0 

Successful branching event mask \ 


0 


1 

Instruction fetching event mask / 


0 


2 

Storage alteration event mask > 

Program-event record'g 

0 


3 

GR alteration event mask ( 




16-31 

PER general register masks / 


0 

10 

8-31 

PER starting address 

Program - event record'g 

0 

11 

8-31 

PER ending address 

Program - event record'g 

0 

14 

0 

1 

Check - stop control 1 

Synch. MCEL control / 

Machine - check handling 

1 

1 


2 

I/O extended logout control 

I/O extended logout 

0 


4 

Recovery report mask \ 


0 


5 

Degradation report mask j 


0 


6 

7 

Ext. damage report mask f 

Warning mask / 

Machine - check handling 

1 

0 


8 

Asynch . MCEL control 1 


0 


9 

Asynch. fixed log control / 


0 

15 

8-28 

MCEL address 

Machine - check handling 

512 
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Condition Codes 


Condition Code Setting 

0 

1 

2 

3 

Mask Bit Value 

8 

4 

2 

1 

General Instructions 

Add, Add Halfword 

zero 

< zero 

> zero 

overflow 

Add Logical 

zero. 

not zero. 

zero. 

not zero. 


. no carry 

no carry 

carry 

carry 

AND 

zero 

not zero 

— 

— 

Compare, Compare Halfword 

equal 

1st op low 

1st op high 

- 

Compare and Swap/Double 

equal 

not equal 

— 

— 

Compare Logical 

equal 

1st op low 

1st op high 

— 

Exclusive OR 

zero 

not zero 

— 

— 

Insert Characters under Mask 

all zero 

1st bit one 

1st bit zero 

— 

Load and Test 

zero 

< zero 

> zero 

— 

Load Complement 

zero 

< zero 

> zero 

overflow 

Load Negative 

zero 

< zero 

— 

— 

Load Positive 

zero 

— 

> zero 

overflow 

Move Long 

count equal 

count low 

count high 

overlap 

OR 

zero 

not zero 

— 

— 

Shift Left Double/Single 

zero 

< zero 

> zero 

overflow 

Shift Right Double/Single 

zero 

< zero 

> zero 

- 

Store Clock 

set 

not set 

error 

not oper 

Subtract, Subtract Halfword 


< zero 

> zero 

overflow 

Subtract Logical 

- 

not zero. 

zero, 

not zero. 

Test and Set 

zero 

no carry 

one 

carry 

carry 

Test under Mask 

zero 

mixed 

— 

ones 

Translate and Test 

zero 

incomplete 

complete 

- 

Decimal Instructions 

Add Decimal 

zero 

< zero 

> zero 

overflow 

Compare Decimal 

equal 

1st op low 

1st op high 

— 

Edit, Edit and Mark 

zero 

< zero 

> zero 

— 

Shift and Round Decimal 

zero 

< zero 

> zero 

overflow 

Subtract Decimal 

zero 

< zero 

> zero 

overflow 

Zero and Add 

zero 

< zero 

> zero 

overflow 

Floating-Point Instructions 

Add Normalized 

zero 

< zero 

> zero 

— 

Add Unnormalized 

zero 

< zero 

> zero 

— 

Compare 

equal 

1st op low 

1st op high 

- 

Load and Test 

zero 

< zero 

> zero 

— 

Load Complement 

zero 

< zero 

> zero 

— 

Load Negative 

zero 

< zero 

— 

— 

Load Positive 

zero 

— 

> zero 

— 

Subtract Normalized 

zero 

< zero 

> zero 

— 

Subtract Unnormalized 

zero 

< zero 

> zero 

- 

Input/Output Instructions 

Clear I/O 

no oper in 

CSW stored 

chan busy 

not oper 

Halt Device 

progress 

interruption 

CSW stored 

channel 

not oper 

Halt I/O 

pending 

interruption 

CSW stored 

working 
burst op 

not oper 

Start I/O, SIOF 

pending 

successful 

CSW stored 

stopped 

busy 

not oper 

Store Channel ID 

ID stored 

CSW stored 

busy 

not oper 

Test Channel 

available 

interruption 

burst mode 

not oper 

Test I/O 

available 

pending 

CSW stored 

busy 

not oper 

System Control Instructions 

Load Real Address 

translation 

ST entry 

PT entry 

length 


available 

invalid 

invalid 

violation 

Reset Reference Bit 

R = 0, C = 0 

R=0, C=1 

R= 1, C=0 

R= 1 , C = 1 

Set Clock 

set 

secure 

— 

not oper 

Signal Processor 

accepted 

stat stored 

busy 

not oper 
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Program Interruption Codes - CNOP Alignment - Edit EDMK Pattern 
Characters 

PROGRAM INTERRUPTION CODES 


Interruption 

Code 

Program Interruption 
Cause 

Interruption 

Code 

Program Interruption 
Cause 

Dec 

Hex 

Dec 

Hex 

1 

0001 

Operation 

12 

oooc 

Exponent overflow 

2 

0002 

Privileged operation 

13 

000D 

Exponent underflow 

3 

0003 

Execute 

14 

000E 

Significance 

4 

0004 

Protection 

15 

000F 

Floating - point divide 

5 

0005 

Addressing 

16 

0010 

Segment translation 

6 

0006 

Specification 

17 

0011 

Page translation 

7 

0007 

Data 

18 

0012 

Translation specification 

8 

0008 

Fixed-point overflow 

19 

0013 

Special operation 

9 

0009 

Fixed - point divide 

64 

0040 

Monitor event 

10 

11 

000A 

000B 

Decimal overflow 
Decimal divide 

128 

0080 

Program event (code ma> 
be combined with 
another code) 


CNOP ALIGNMENT 



Doubl 

Word 


Word 

Word 

Half Word j 

Half Word 

Half Word j 

Half Word 

Byte j Byte j 

Byte j Byte 

Byte [ Byte [ 

Byte j Byte 

0,4 

VT 

(M 


0,8 

2,8 

4,8 

6,8 


EDIT AND EDMK PATTERN 

20 - digit selector 

21 - start of significance 

22 - field separator 


CHARACTERS (in hex) 

40-blank 5C-asterisk 

4B-period 6B-comma 

5B-dollar sign C3D9-CR 
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Fixed Storage Locations 


Area, 
dec. 

Hex 

addr 

Purpose 

0-7 

0 

Initial program loading PSW, restart new PSW 

8-15 

8 

Initial program loading CCW1, restart old PSW 

16-23 

10 

Initial program loading CCW2 

24-31 

18 

External old PSW 

32-39 

20 

Supervisor Call old PSW 

40-47 

28 

Program old PSW 

48-55 

30 

Machine-check old PSW 

56-63 

38 

Input/output old PSW 

64-71 

40 

Channel status word 

72-75 

48 

Channel address word 

80-83 

50 

Interval timer 

88-95 

58 

External new PSW 

96-103 

60 

Supervisor Call new PSW 

104-111 

68 

Program new PSW 

112-119 

70 

Machine-check new PSW 

120-127 

78 

Input/output new PSW 

132-133 

84 

CPU address assoc'd with external interruption , or unchanged 

132-133 

84 

CPU address assoc'd with external interruption, or zero (EC 
mode only) 

134-135 

86 

External interruption code (EC mode only) 

136-139 

88 

SVC interruption [0-12 zeros, 13-14 ILC, 15:0, 16-31 code] 
(EC mode only) 

140-143 

8C 

Program interrupt [0-12 zeros, 13-14 ILC, 15:0, 16-31 code] 
(EC mode only) 

144-147 

90 

Translation exception address [0-7 zeros, 8-31 address] (EC 
mode only) 

148-149 

94 

Monitor class [0-7 zeros, 8-15 class number] 

150-151 

96 

PER interruption code [0-3 code, 4-15 zeros] (EC mode only) 

152-155 

98 

PER address [0-7 zeros, 8-31 address] (EC mode only) 

156-159 

9C 

Monitor code [0-7 zeros, 8-31 monitor code] 

168-171 

AB 

Channel ID [0-3 type, 4-15 model, 16-31 max. IOEL length] 

172-175 

AC 

I/O extended logout (IOEL) address [0-7 unused, 8-31 addr] 

176-179 

B0 

Limited channel logout (see diagram) 

185-187 

B9 

I/O address [0-7 zeros, 8-23 address] (EC mode only) 

216-223 

D8 

CPU timer save area 

224-231 

E0 

Clock comparator save area 

232-239 

E8 

Machine-check interruption code 

248-251 

F8 

Failing processor storage address [0-7 zeros, 8-31 addr] 

252-255 

FC 

Region code* 

256-351 

100 

Machine-check fixed logout area* 

352-383 

160 

Machine-check floating-point register save area 

384-447 

180 

Machine-check general register save area 

448-511 

ICO 

Machine-check control register save area 

512- f 

200 

Machine-check CPU extended logout area (size varies) 


* Functions and use of fields may vary among models. See system library 
manuals for specific model. 

f Location may be changed by programming (bits 8-28 of CRT5 specify address). 
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PSW (BC and EC modes) 


PROGRAM STATUS WORD (BC Mode) 



0-5 Channel 0 to 5 masks 32-33 (I LC) Instruction length code 

6 Mask for channel 6 and up 34-35 (CC) Condition code 

7 (E) External mask 36 Fixed-point overflow mask 

12 (C=0) Basic control mode 37 Decimal overflow mask 

13 (M) Machine-check mask 38 Exponent underflow mask 

14 (W=1) Wait state 39 Significance mask 

15 (P=1) Problem state 


PROGRAM STATUS WORD (EC Mode) 



3239140471485515663 


1 (R) Program event recording mask 15 (P=1) Problem state 
5 (T=1) Translation mode 18-19 (CC) Condition code 

6(1) Input/output mask 20 Fixed-point overflow mask 

7 (E) External mask 21 Decimal overflow mask 

12 (C=1) Extended control mode 22 Exponent underflow mask 

13 (M) Machine-check mask 23 Significance mask 

14 (W=1) Wait state 
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CAW - CCW - CSW 


CHANNEL ADDRESS WORD (hex 48) 


Key 


Command Address 

1 5 116 1 nr 


CHANNEL COMMAND WORD 



CD—bit 32 (80) causes use of address portion of next CCW. 

CC—bit 33 (40) causes use of command code and data address of next CCW. 
SLI—bit 34 (20) causes suppression of possible incorrect length indication. 
Skip—bit 35 (10) suppresses transfer of information to main storage. 

PCI—bit 36 (08) causes a channel program controlled interruption. 

IDA—bit 37 (04) causes bits 8-31 of CCW to specify location of first I DAW. 


CHANNEL STATUS WORD (hex 40) 



5 Logout pending 

6-7 Deferred condition code 

32 (8000) Attention 

33 (4000) Status modifier 

34 (2000) Control unit end 

35 (1000) Busy 

36 (0800) Channel end 

37 (0400) Device end 

38 (0200) Unit check 

39 (0100) Unit exception 


40 (0080) Program control interruption 

41 (0040) Incorrect length 

42 (0020) Program check 

43 (0010) Protection check 

44 (0008) Channel data check 

45 (0004) Channel control check 

46 (0002) Interface control check 

47 (0001) Chaining check 

48-63 Residual byte count for the last 
CCW used 
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Limited Channel Logout - Machine-check Interruption Code 
LIMITED CHANNEL LOGOUT (hex BO) 


SCU id| Detect 


Field validity flags TT 00 A Seq. 


Detect field 

4 CPU 

5 Channel 

6 Storage control unit 

7 Storage unit 
Source field 

8 CPU 

9 Channel 

10 Storage control unit 

11 Storage unit 

12 Control unit 
16-23 Field validity flags 

16 Interface address 


17-18 Reserved (00) 

19 Sequence code 

20 Unit status 

21 Command address and key 

22 Channel address 

23 Device address 
24-25 (TT) Type of termination 

Code 00 Interface disconnect 
01 Stop, stack, or normal 

10 Selective reset 

11 System reset 
28 (A) I/O error alert 

29-31 Sequence code 


Machine - check Interruption Code 


MACHINE-CHECK INTERRUPTION CODE (hex E8) 


Validity indicators 


I 0000 0000 0000 00 Val. MCEL length | 

32 39140 45'46 148 55*56 63 


0 System damage 14 Backed-up 24 Failing stg. address 

1 Instr. proc'g damage 15 Delayed 25 Region code 

2 System recovery 16 Uncorrected 27 Floating-pt registers 

3 Timer damage 17 Corrected 28 General registers 

4 Timing facil. damage 18 Key uncorrected 29 Control registers 

5 External damage 20 PSW bits 12-15 30 CPU ext'd logout 

6 Not assigned (0) 21 PSW masks and key 31 Storage logical 

7 Degradation 22 Prog, mask and CC 46 CPU timer 

8 Warning 23 Instruction address 47 Clock comparator 
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I/O Command Codes 


Standard Command Code Assignments (CCW bits 0-7) 


xxxx 

0000 

Invalid 

+ +++ 

+ + 01 

Write 

tttt 

0100 

Sense 

tt + t 

ttl 0 

Read 

xxxx 

1 000 

Transfer in Channel 

Tt + t 

ttl 1 

Control 

++++ 

1 1 00 

Read Backward 

0000 

001 1 

Control No Operation 


x -Bit ignored. fModifier bit for specific type of I/O device 


CONSOLE PRINTERS 


Write, No Carrier Return 

01 

Sense 

04 

Write, Auto Carrier Return 

09 

Audible Alarm 

0B 

Read Inquiry 

0A 




3504, 3505 CARD READER/3525 CARD PUNCH_(GA21-9124) 


Command 

Binary 

Hex 

Bit Meanings 

Sense 

0000 0100 

04 

SS 

Stacker 

Feed, Select Stacker 

SS10 F011 


00 

1 

Read Only* 

11D0 F010 


01 

2 

Diagnostic Read 

1101 0010 

D2 

10 

2 

Read, Feed, Select Stacker* 

SSD0 F010 


F 

Format Mode 

Write RCE Format* 

0001 0001 

11 

0 

Unformatted 

3504, 3505 only 



1 

Formatted 

Write OMR Formatt 

0011 0001 

31 

D_ 

Data Mode 

3525 only 

Write, Feed, Select Stacker 



0 

1-EBCDIC 

SSD0 0001 


1 

2-Card image 

Print Line* 

LLLL LI01 


L 

Line Position 




5-bit binary value 


*Special feature on 3525 tSpecial feature 


PRINTERS: 3211/3811 (GA24-3543), 3203/IPA, 1403/2821* (GA24-3312) 



After 





Write 

Immed 



Space 1 Line 

09 

0B 

Write without spacing 

01 

Space 2 Lines 

11 

13 

Sense 

04 

Space 3 Lines 

19 

IB 

Load UCSB without folding 

FB 

Skip to Channel O' 

- 

83 

Foldt 

43 

Skip to Channel 1 

89 

8B 

Unfold"!* 

23 

Skip to Channel 2 

91 

93 

Load UCSB and Fold (exc .3211) 

F3 

Skip to Channel 3 

99 

9B 

UCS Gate Load (1403 only) 

EB 

Skip to Channel 4 

A! 

A3 

Load FCB+ 

63 

Skip to Channel 5 

A9 

AB 

Block Data Check 

73 

Skip to Channel 6 

B1 

B3 

Allow Data Check 

7B 

Skip to Channel 7 

B9 

BB 

Read PLB+ 

02 

Skip to Channel 8 

Cl 

C3 

Read UCSBt 

0A 

Skip to Channel 9 

C9 

CB 

Read FCBt 

12 

Skip to Channel 10 

D1 

D3 

Diag . Check Read (exc . 3203) 

06 

Skip to Channel 11 

D9 

DB 

Diagnostic Write t 

05 

Skip to Channel 12 

El 

E3 

Raise Covert" 

6B 




Diagnostic Gate"!" 

07 




Diagnostic Read (1403 only) 

02 


*1403/IPA diagnostics are mode I-dependent; +3211 only 

UCS special feature on 1403 
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I/O Command Codes (cont'd) 


3420/3803, 3410/3411 MAGNETIC TAPE 

See GA32-0020, -0021, -0022 for function of specific models and special 
features required. 



*Two-channel switch required t3420 only 


DIRECT ACCESS STORAGE DEVICES: 

3330-3340 SERIES (GA26-1592, -1617, -1619, -1620); 
3350 (GA26-1638); 

2305/2835 (GA26-1589); 2314, 2319(GA26-3599, -1606) 


Command 

MT Off 

MT On* 


Control Orient (c) 

2B 


Nonzero 

Recalibrate 

13 


Nonzero 

Seek 

07 


6 

Seek Cylinder 

0B 


6 

Seek Head 

IB 


6 

Space Count 

OF 


3 (a); nonzero (d) 

Set File Mask 

IF 


1 

Set Sector (a,f) 

23 


1 

Restore (executes as a no-op) 

17 


Nonzero 

Vary Sensing (c) 

27 


1 

Diagnostic Load (a) 

53 


1 

Diagnostic Write (a) 

73 


512 

Search Home Address Equal 

39 

B9 

4 

Identifier Equal 

31 

B1 

5 

Identifier High 

51 

D1 

5 

Identifier Equal or High 

71 

FI 

5 

Key Equal 

29 

A9 

KL 

Key High 

49 

C9 

KL 

Key Equal or High 

69 

E9 

KL 

Key and Data Equal (d) 

2D 

AD 

> 


Key and Data High (d) 

4D 

CD 


Number 

Key and Data Eq. or Hi (d) 

6D 

ED 


of bytes 

Continue Search Equal (d) 

25 

A5 


(including 

Scan Search High (d) 

45 

C5 


a mask bytes) 

Search High or Equal (d) 

65 

E5 


in search 

Set Compare (d) 

35 

B5 


argument 

Set Compare (d) 

75 

F5 



No Compare (d) 

55 

D5 

) 



* Code same as MT Off except as listed, d. 2314, 2319 only. 

a. Except 2314, 2319 e. String switch or 2-channel 

b. 3330-3340 Series only; switch feature required; 

manual reset on 3340. standard on 2314 and 2844. 

c. 2304/2835 only. f. Special feature required on 3340. 
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I/O Command Codes (cont'd) 


DIRECT ACCESS STORAGE DEVICES: (cont'd) 

3330-3340 SERIES (GA26-1592, -1617, -1619, 1620); 
3350 (GA26-1638) 

2305/2835 (GA26-1589); 2314, 2319 (GA26-3599, -1606) 


Command 

MT Off 

MT On* 

| Count 

Read Home Address 

1A 

9A 

n 

5 

Count 

12 

92 

8 

Record 0 

16 

96 



Data 

06 

86 

I 

' Number of 

Key and Data 

0E 

8E 


> bytes to be 

Count, Key and Data 

IE 

9E 

\ 

\ transferred 

IPL 

02 | 



) 

Sector (a,f) 

22 


1 


Sense Sense I/O 

04 


24 (a); 6 (d) 

Read, Reset Buffered Log (b) 

A4 


24 

Read Buffered Log (c) 

24 


128 

Device Release (e) 

94 


24 (a); 6 (d) 

Device Reserve (e) 

B4 


24 (a); 6 (d) 

Read Diagnostic Status 1 (a) 

44 


16 or 512 

Write Home Address 

19 


5 (exc . 7 on 3340) 

Record 0 

15 


8+KL+DL of R0 

Erase 

11 


| 8+KL+DL 

Count, Key and Data 

ID 


I 8+KL+DL 

Special Count, Key and Data 

01 


8+KL+DL 

Data 

05 


DL 

Key and Data 

0D 


KL+DL 


* Code same as MT Off except as listed. 

a. Except 2314, 2319. 

b. 3330-3340, 3350 Series only; 
manual reset on 3340/3344. 

c. 2304/2835 only. 


d. 2314, 2319 only. 

e. String switch or 2-channel 
switch feature required; 
standard on 2314 and 2844. 

f. Special feature required on 
3340. 


3540 Diskette I/O Unit 

Command 

Seek 
Read I PL 
Feed 

Write Control 
Define Operations 
Read Data 
Sense 
Test I/O 
No-Op 
Write Data 


Binary 

Hex 

0000 0111 

07 

0000 0010 

02 

0001 0111 

17 

0010 0001 

21 

0010 1111 

2F 

0000 0110 

06 

0000 0100 

04 

0000 0000 

00 

0000 0011 

03 

0000 0101 

05 


1-16 
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Channel Command Code-ANSI Control Characters 




B- 

Jit Code 


Hex 

Dec 

0 

1 

7 1 

3> 

4 

5 

6 

7 

0 

0 

0 

0 

1 

0 

1 

0 

0A 

10 

0 

0 

0 

0 

0 

0 

1 

0 

02 

02 

0 

0 

0 

0 

1 

0 

0 

1 

09 

09 

0 

0 

0 

0 

0 

0 

0 

1 

01 

01 

0 

0 

0 

0 

0 

0 

1 

1 

03 

03 

0 

0 

0 

0 

0 

1 

0 

0 

04 

04 

0 

0 

0 

0 

1 

0 

1 

1 

0B 

11 

s 

s 

D 

0 

0 

0 

1 

0 



1 

1 

D 

0 

0 

0 

1 

0 



1 

1 

D 

1 

0 

0 

1 

0 



s 

s 

1 

0 

0 

0 

1 

1 



s 

S 

D 

0 

1 

0 

0 

1 



s 

s i 

D 

0 

0 

0 

0 

1 



0 

0 

0 

0 

1 

1 

0 

o 

OC 

12 

0 

0 

0 

0 

0 

1 

0 

0 

04 

04 

0 

0 

0 

0 

0 

0 

0 

1 

01 

01 

0 

0 

0 

0 

0 

0 

1 

0 

02 

02 

0 

0 

C 

c 

c 

1 

1 

1 



D 

D 

M 

M 

M 

0 

1 

1 



1 

1 

N 

N 

N 

0 

1 

1 




Command for CCW 


Read Inquiry BCD 

Read Reader 2 BCD 

Write BDC, Auto Carriage Return 

Write BDC, No Auto Carriage Return 

No Op 

Sense 

Alarm 


Read, Feed, Select Stacker SS Type AA 

Read Type AB 

Read, Feed (1400 compatability mode only) 

Feed, Select Stacker SS Type BA 

PFR Punch, Feed, Select Stacker SS Type BA 

Punch, Feed, Select Stacker SS Type BB 



Stacker 


D 

Data Mode 

00 

R1 


0 

EBCDIC 

01 i 

R2 

RP3 


1 

Column Binary 


Read Backward (Overrides Data Converter On) 


Tape* 

Sense 

N 

N 

N 



Write 

0 

0 

0 

1600 bpi P.E. ** 


Read 

A 

0 

uu 

800 bpi NRZ1 


C 

c 

c 

Control 

Codes 

Hex 

Dec 

0 

0 

0 

REW 

7 

7 

0 

0 

1 

RUN 

OF 

15 

0 

1 

0 

ERG 

17 

23 

0 

1 

1 

WTM 

IF 

31 

1 

0 

0 

BSR 

27 

39 

1 

0 

1 

BSF 

2F 

47 

1 

1 

0 

FSR 

37 

55 

1 

1 

1 

FSF 

3F 

63 


* 9 track op. forces 800 BPI and 
odd parity; also, it overrides 
7 track but does not reset 7 
track. Load/Sys Reset forces 7 
track to 800 BPI, odd parity, 
data converter on, translator off. 

* Reset condition 

* Set 9 Track mode. Models 4-6 


£j 

D 

7 Track 
Density 

j>7 Track 

Set Density 

Set Odd Parity 

Set Even Parity 

Data Converter On 

Data Converter Off 

Translator On 

Translator Off 

Request TIE 
(Track in Error) 

0 

0 

1 

1 

0 

1 

0 

1 

200 

556 

800** 

M 

M M 

(Mode Modifiers) 

0 

0 

0 

No Op 









0 

0 

1 

Not Used 









0 

1 

0 

Reset Condition 

X 

X 


X 



X 


0 

1 

1 

Ni 

le - track only 








X 

1 

0 

0 



X 


X 


X 


X 


1 

0 

1 



x 


X 


X 

X 



1 

1 

0 

Reset Condition 

x 

X 



X 


X 


1 

1 

1 



.x 

X 



X 

X 




ANSI Control Characters 

Code Action Before Printing a Line 

K Space one line (blank code) 

0 Space two lines 

Space three lines 
+ Suppress space 

1 Skip to channel 1 

2 Skip to channel 2 

3 Skip to channel 3 

4 Skip to channel 4 

5 Skip to channel 5 

6 Skip to channel 6 

7 Skip to channel 7 

8 Skip to channel 8 

9 Skip to channel 9 

A Skip to channel 10 

B Skip to channel 11 

C Skip to channel 12 


Code Action After Punching a Cord 


Select punch pocket 1 
Select punch pocket 2 
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Channel Command Codes (cont'd) 


Device 

Type 

Command 

Command Name 

Hex 

Code 

3800 

Load 

Load Forms Control Buffer 

63 

Pri nti ng 


Load Translate Table 

83 

Subsystem 


Load Character Module (WCGM) 

53 



Load Copy Number 

23 



Load Forms Overlay Control 

43 



Load Graphic Character Modification 

25 



Load Copy Modification 

35 


Write 

Write with No Space 

01 



Write and Space 1 Line 

09 



Write and Space 2 Lines 

11 



Write and Space 3 Ones 

19 



Write and Skip to Channel 1 

89 



Write and Skip to Channel 2 

91 



Write and Skip to Channel 3 

99 



Write and Skip to Channel 4 

A1 



Write and Skip to Channel 5 

A9 



Write and Skip to Channel 6 

B1 



Write end Skip to Channel 7 

B9 



Write and Skip to Channel 8 

Cl 



Write and Skip to Channel 9 

C9 



Write and Skip to Channel 10 

D1 



Write and Skip to Channel 11 

D9 



Write and Skip to Channel 12 

El 


Forms 

Space 1 Line Immediately 

0B 



Space 2 Lines Immediately 

13 



Space 3 Lines Immediately 

IB 



Skip to Channel 1 Immediately 

8B 


i 

Skip to Channel 2 Immediately 

93 


| 

Skip to Channel 3 Immediately 

9B 



Ski pi to Channel 4 Immediately 

A3 



Skip to Chcnnel 5 Immediately 

AB 



Skip to Channel 6 Immediately 

B3 



Skip to Channel 7 Immediately 

BB 



Skip to Channel 8 Immediately 

C3 



Skip to Channel 9 Immediately 

CB 



Skip to Channel 10 Immediately 

D3 



Skip to Channel 11 Immediately 

DB 



Skip to Channel 12 Immediately 

E3 


Sense 

Test I/O 

00 



Sense I/O 

04 



Sense Intermediate Buffer 

14 



Sense Error Log 

24 


Control 

No Operation 

03 



Block Data Check 

73 



Allow Data Check 

7B 



Initialize FVinter 

37 



Select Translate Table 0 

47 



Select Translate Table 1 

57 



Select Translate Table 2 

67 



Select Translate Table 3 

77 



Clear fVinter 

87 



End of Transmission 

07 



Mark Form (End of Job) 

17 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Add 

A 

5A 

RX 

Rl, D2(X2,B2) 

Add opr 2 to opr 1 
(Sto) (Reg) 

Addr 

Spec if 

Fxpt Oflo 

0 Sum = 0 

1 Sum < 0 

2 Sum > 0 

3 Overflow 

Add 

AR 

1A 

RR 

Rl, R2 

Add opr 2 to opr 1 
(GPR) (Reg) 

Fxpt Oflo 

0 Sum = 0 

1 Sum < 0 

2 Sum >0 

3 Overflow 

Add 

Decimal 

AP 

FA 

SS 

D1(L1,B1), 

D2(L2,B2) 

Add dec opr 2 to opr 1 
(Sto) (Sto) 

(Right to left byte by byte). 

(Opr 1 and 2 must be in packed) 
(Fields can overlap if low-order 
bytes coincide) 

(If opr 1 and opr 2 refer to same 
field, the field is doubled) 

Addr 

Data 

Dec Oflo 
Protect 

Opera 

0 Sum = 0 

1 Sum < 0 

2 Sum > 0 

3 Overflow 

Add 

Halfword 

AH 

4A 

RX 

Rl, D2(X2,B2) 

Add opr 2 to opr 1 
(Sto) (Reg) 

(High-order 16 bits expanded) 
opr 2 

Addr 

Fxpt Oflo 

Specif 

0 Sum = 0 

1 Sum < 0 

2 Sum > 0 

3 Overflow 

Add 

Logical 

AL 

5E 

RX 

Rl, D2(X2,B2) 

Add log opr 2 to opr 1 
(Sto) (Reg) 

Addr 

Specif 

0 Sum = 0 

1 Sum * 0 

2 Sum = 0 

3 Sum * 0 

Add 

Logical 

ALR 

IE 

RR 

Rl, R2 

Add log opr 2 to opr 1 
(Reg) (Reg) 

None 

0 Sum = 0 

1 Sum * 0 

2 Sum = 0 

1 3 Sum * 0 


System/370 Instructions 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Add 

Normalized 

(Extended) 

AXR 

36 

RR 

Rl, R2 

FP Add opr 2 to opr 1 
(FPR pair) (FPR pair) 

Extended sum is put in opr 1 (FPR pair) 

Each operand consists of two FPR 

Only FPR 0 and FPR 4 may be specified for 
opr 1 or opr 2. 

Specif 

Exp Oflo 
Exp Uflo 
Signif 
Opera 

0 Fract = 0 

1 Result < 0 

2 Result >0 

Add 

Normalized 

(Long) 

AD 

6A 

RX 

Rl, D2(X2, B2) 

FP Add opr 2 to opr 1 
(Sto) (FPR) 

| S | Char | Fraction | 

0 1 7 8 63 

Addr 

Specif 

Signif 

Exp Oflo 
Exp Uflo 
Opera 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

Add 

Normalized 

(Long) 

ADR 

2A 

RR 

Rl, R2 

FP Add opr 2 to opr 1 
(FPR) (FPR) 

Specif 

Opera 

Signif 

Exp Oflo 
Exp Uflo 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

Add 

Normalized 

(Short) 

AE 

7A 

RX 

Rl, D2(X2,B2) 

FP Add opr 2 to opr 1 

^_(Sto), (FPR) 

1 S | Char | Fraction | 

0 1 7 8 31 

(Low-order halves of FPR ignored and 
unchanged) 

Addr 

Specif 

Signif 

Exp Oflo 
Exp Uflo 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

Add 

Normalized 

(Short) 

AER 

3A 

RR 

Rl, R2 

FP Add opr 2 to opr 1 
(FPR) (FPR) 

(Low-order halves of FPR ignored and 
unchanged) 

Specif 

Signif 

Exp Oflo 
Exp Uflo 

0 Fract = 0 

1 Result < 0 

2 Result > 0 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Add 

Unnormalized 

(Long) 

AW 

6E 

RX 

Rl, D2(X2,B2) 

FP Add opr 2 to opr 1 
(Sto) (FPR) 

Addr 

Specif 

Signif 

Exp Oflo 
Opera 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

Add 

Unnormalized 

(Long) 

AWR 

2E 

RR 

R1/R2 

FP Add opr 2 to opr 1 
(FPR) (FPR) 

Specif 

Signif 

Exp Oflo 
Opera 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

Add 

Unnormalized 

(Short) 

AU 

7 E 

RX 

Rl, D2(X2,B2) 

FP Add opr 2 to opr 1 
(Sto) (FPR) 

(Low-order halves of FPR ignored and 
unchanged) 

Addr 

Specif 

Signif 

Exp Oflo 
Opera 

0 Fract = 0 

1 Result < 0 

2 Result -> 0 

Add 

Unnormalized 

(Short) 

AUR 

3E 

RR 

Rl, R2 

FP Add opr 2 to opr 1 
(FPR) (FPR) 

(Low-order halves of FPR ignored and 
unchanged) 

Specif 

Signif 

Exp Oflo 
Opera 

0 Fract = 0 

1 Result <0 

2 Result > 0 

AND 

N 

54 

RX 

Rl, D2(X2,B2) 

Place the product of both opr’s into opr 1 

Addr 

Specif 

0 Result = 0 

1 Result * 0 

AND 

NC 

D4 

SS 

D1(L,B1), D2(B2) 

Place the product of both opr's into opr 1 
(Left to right byte by byte) 

(Max number of bytes ANDed: 256) 

Addr 

Protect 

0 Result = 0 

1 Result * 0 

AND 

NR 

14 

RR 

Rl, R2 

Place the product of both opr's into opr 1 

None 

0 Result = 0 

1 Result * 0 

AND 

Nl 

94 

SI 

D1(B1), 12 

AND the 1 byte from the instruction stream 
(8-15) to opr 1 

Addr 

Protect 

0 Result = 0 

1 Result * 0 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Branch and 

Link 

BAL 

45 

RX 

Rl, D2(X2,B2) 

Store ILC,CC prog mask, and 24 bits of 
inst adr in opr 1 . Branch to adr of opr 2 

None 

Unchanged 

Branch and 

Link 

BALR 

05 

RR 

Rl, R2 

Store ILC,CC prog mask, and 24 bits of 
inst adr in opr 1 . Branch to adr of opr 2 
(If opr 2=0, store, no branch) 

None 

Unchanged 

Branch on 

Condition 

BC 

47 

RX 

Ml, D2(X2,B2) 

Compare opr 1 with cond code 
(Mask) 8-11 

(Mask = 7) Branch on non-zero cond code 

(Mask = 15) Uncond branch 

(Mask = 8) Cond code 00 

(Mask = 4) Cond code 01 

(Mask = 2) Cond code 10 

(Mask = 1) Cond code 11 

(NOP if cond not met) 

None 

Unchanged 

Branch on 

Condition 

BCR 

07 

RR 

Ml, R2 

Compare opr 1 with cond code 

Branch to opr 2 adr if cond met 
(If opr 2=0) NOP 

None 

Unchanged 

Branch on 

Count 

BCT 

46 

RX 

Rl, D2(X2,B2) 

Reduce opr 1 by 1 and branch to opr 2 adr 
(If opr 1=1) Reduce, no branch 

None 

Unchanged 

Branch on 

Count 

BCTR 

06 

RR 

Rl, R2 

. 

Reduce opr 1 by 1 and branch to opr 2 adr 
(If opr 1=1) Reduce, no branch 
(If opr 2=0) Reduce, no branch 


Unchanged 

Branch on Equal 

BE 

47(BC 8) 

RX, Ext. j 

D2(X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Equal 

BER 

07(BCR 8 

) RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on High 

BH 

47(BC 2) 

| RX, Ext. 

D2(X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on High 

BHR 

07(BCR 2 

) RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on 

Index High 

BXH 

86 

RS 

Rl, R3, D2(B2) 

Add opr 3 to opr 1 

Sum compared to opr 3 if opr 3 adr is odd 
Sum compared to opr 3 + 1 if opr 3 oddr is 
even 

Branch to opr 2 adr if sum > comparand 


Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Branch on Index 

Low or Equal 

BXLE 

87 

RS 

Rl, R3, D2(B2) 

Same as Branch On Index High 

Branch to opr 2 adr if sum Cor = opr 3+1 

None 

Unchanged 

Branch on Low 

BL 

47(BC 4) 

RX,Ext. 

02 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Low 

BLR 

07(BCR4) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch if Mixed 

BM 

47(BC 4) 

RX,Ext. 

02 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch if Mixed 

BMR 

07(BCR 4) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Minus 

BM 

47(BC 4) 

RX, Ext. 

D2 (X2, B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Minus 

BMR 

07(BCR 4) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Equal 

BNE 

47(BC 7) 

RX, Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Equal 

BNER 

07(BCR 7) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not High 

BNH 

47(BC 13) 

RX, Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not High 

BNHR 

07(BCR 13) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Low 

BNL 

47(BC 11) 

RX, Ext. 

02 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Low 

BNLR 

07(BCR 11) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Minus 

BNM 

47(BC 11) 

RX,Ext. 

02 (X2, B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Minus 

BNMR 

07(BCR 11) 

RR, Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Ones 

BNO 

47(BC 14) 

RX, Ext. 

02 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Ones 

BNOR 

07(BCR 14) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Plus 

BNP 

47(BC 13) 

RX, Ext. 

02 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Plus 

BN PR 

07(BCR 13) 

RR,Ext. 

R2 

Branch if mask - cond code 

None 

Unchanged 

Branch on Not Zeros 

BNZ 

47(BC 7) 

RX, Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Not Zeros 

BNZR 

07(BCR 7) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 


Ext - Extended Mnemonic 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Branch if Ones 

BO 

47(BC 1) 

RX,Ext. 

D2 (X2,B2) 

Branch if mask — cond code 

None 

Unchanged 

Branch if Ones 

BOR 

07(BCR 1) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Overflow 

BO 

47(BC 1) 

RX, Ext. 

D2(X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Overflow 

BOR 

07(BCR 1) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Plus 

BP 

47(BC 2) 

RX,Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Plus 

BPR 

07(BCR 2) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch if Zeros 

BZ 

47(BC 8) 

RX,Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch if Zeros 

BZR 

07(BCR8) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch on Zero 

BZ 

47(BC 8) 

RX,Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch on Zero 

BZR 

07(BCR 8) 

RR,Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Branch Unconditional 

B 

47(BC T5) 

RX,Ext. 

D2 (X2,B2) 

Branch if mask = cond code 

None 

Unchanged 

Branch Unconditional 

BR 

07(BC 15) 

RR, Ext. 

R2 

Branch if mask = cond code 

None 

Unchanged 

Clear I/O 

CLRIO 

9D01 

S 

D2 (B2) 

Terminate execution of current I/O op at 
addressed dev. 

Priv 

0 opr's = 

1 CSW stored 

2 channel or 
subchannel 
busy 

3 not oprtnal 

Compare 

C 

59 

RX 

Rl, D2(X2,B2) 

Compare opr 1 algebraically to opr 2 (Reg) 

Addr 

Specif 

0 opr's = 

1 1st < 

2 1st > 

Compare 

CR 

1 ___ 

19 

RR 

R1, R2 

Compare opr 1 algebraically to opr 2 

None 

0 opr's = 

1 1st < 

2 1st > 


Ext = Extended Mnemonic 
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Protect 

Opera 

2nd replaced 
by 3rd 

Dt (11,81), 02(12,82) 

Compare opr 1 to opr 2 

(binary right to left) byte by byte j 

(Pieids can overlap if low-oider bytes 
coincide) 

(The shorter opr is extended with high-order 

Addr 

Data 

0 opr's = 

1 1st < 

2 1st > 

Rl, R3, D2(B2) 

Compare opr 1 ta opr 2. Store opr 3 in i 

opr 2 if =, store opr 2 in opr 1 if /. 

Addr 

Specif 

Protect 

Opera 

0 opr's = 

1 1 st *= 2nd 

2nd replaced 
by 3rd 

Rl, D2(X2,B2) 

Compare opr 1 algebraicqJ \y to opr 2 
(Hi-order 16 bits expanded) opr 2 

Addr 

Specif 

0 opr's ~ 

1 1st < 

2 1st > 

Rl, 02(X2,B2) 

Compare opr 1 to opr 2 
(binary left to right) 

(Terminates if/when f found) 

Addr 

Specif 

1 ,s P t < 

2 1st > 

01 (L,B1), D2(B2) 

Compare opr 1 to opr 2 
(binary left to right) 

(Terminated if/when f found) 

(opr length mox 256 bytes) 

Addr 

Specif 

0 opr's = 

1 1st < 

2 1st > 


Compare opr 1 to opr 2 
(Imm) (Sto) 

(binary left to right) 
(Terminates if/when f found) 


(binary left to right) 
(Terminates if/when - found) 


Compare opr 2 to opr I under control 
of mask (binary left to right) 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Compare Logical Long 

CLCL 

OF 

RR 

Rl, R2 

Compare opr 1 to opr 2 

(opr 1 and 2 indicate even/odd reg. pair) 

Addr 

Specif 

Opera 

Protect 

0 opr's = 

1 1st < 

2 1st > 

3 — 

Compare (Long) 

CD 

69 

RX 

Rl, D2(X2, B2) 

Compare opr 1 algebraically to opr 2 
(Equalize and subtract) 

Addr 

Specif 

Opera 

0 opr's = 

1 1st < 

2 1st > 

Compare (Long) 

CDR 

29 

RR 

Rl, R2 

Compare opr 1 algebraically to opr 2 (FPR) 
(Equalize and subtract) 

Specif 

Addr 

Opera 

0 opr s = 

1 1st < 

2 1st > 

Compare (Short) 

CE 

79 

RX 

Rl, D2(X2,B2) 

Compare opr 1 algebraically to opr 2 
(FPR) (Sto) 

(Low-order halves of FPR ignored and 
unchanged) 

Addr 

Specif 

Opera 

0 opr's = 

1 1st < 

2 1st > 

Compare (Short) 

CER 

39 

RR 

Rl, R2 

Compare opr 1 algebraically to opr 2 
(FPR) (FPR) 

(Low-order halves of FPR ignored and 
unchanged) 

Specif 

Opera 

0 opr's = 

1 1st < 

2 1st > 

Convert to Binary 

CVB 

4F 

RX 

Rl, D2(X2,B2) 

Convert opr 2 (packed decimal) 
(Doubleword bounds) to binary and put in 
opr 1 location 

Addr 

Specif 

Data 

Fxpt Div 

Unchanged 

Convert to Dec ; mal 

CVD 

1 

4E 

RX 

Rl, D2(X2,B2) 

Convert opr 1 (binary) to packed decimal 
(doubleword bounds) and put in opr 2 

Addr 

Specif 

Protect 

Unchanged 

Diagnose 


83 


See IBM System/370 
Principles of Opera¬ 
tion, GA22-7000 

See IBM System/370 

Principles of Operation, GA22-7000 

Priv Oper 

Model 

dependent 

Unpredict¬ 

able 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Divide 

D 

5D 

RX 

Rl, D2 (X2,B2) 

Divide opr 1 by opr 2 
(even and odd regs) (Sto) 

Opr 1 becomes remainder and quotient 

Addr 

Specif 

Fxpt Div 

Unchanged 

Divide 

DR 

ID 

RR 

Rl, R2 

Divide opr 1 by opr 2 

Dividend: even and odd pair regs 

Opr 1 becomes remainder and quotient 
(full word only) 

Specif 

Fxpt Div 

Unchanged 

Divide Decimal 

DP 

FD 

SS 

D1(L1,B1), 

D2(L2,B2) 

Divide opr 1 by opr 2 

Opr 1 becomes quotient and remainder 
(left justified) 

Dividend: at least 1 leading zero, max 
size 31 digits and sign 

Divisor: max size 15 digits and sign, 
numerically larger than dividend 

Both opr's packed format 

Remainder size = divisor size (Fields can 
overlap if low-order bytes coincide.) 

Addr 

Protect 

Specif 

Data 

Dec Div 
Opera 

Unchanged 

Divide (Long) 

DD 

6D 

RX 

Rl, D2(X2,B2) 

FP Divide opr 1 by opr 2 
(FPR) (Sto) 

Opr 1 becomes quotient 
(prenormalized) 

Addr 

Specif 

Exp Oflo 

FP Div 
Opera 

Exp Uflo 

Unchanged 

Divide (Long) 

DDR 

2D 

RR 

Rl, R2 

FP Divideopr 1 by opr 2 

Prenormalize (FPR) (FPR) 

(Dividend) (Divisor) 

Oper 1 becomes quotient 

Specif 

Opera 

Exp Oflo 
Exp Uflo 

FP Div 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Divide (Short) 

DE 

7D 

RX 

Rl, D2(X2,B2) 

FP Divide opr 1 by opr 2 

Prenormalize 

(Dividend) (Divisor) 

Opr 1 becomes quotient 

(Low-order halves of FPR ignored and 

unchanged) 

Addr 

Specif 

Exp Oflo 

Exp Uflo 

FP Div 
Opera 

Unchanged 

Divide (Short) 

DER 

3D 

RR 

Rl, R2 

FP Divide opr 1 by 2 

Prenormalize (FPR) (FPR) 

(Dividend) (Divisor) 

Opr 1 becomes quotient 

(Low-order halves of FPR ignored and 

unchanged) 

Specif 

Exp Oflo 

FP Div 

Exp Uflo 
Opera 

Unchanged 

Edit 

ED 

DE 

55 

■ 

; 

.. 

D1(L,B1), D2(B2) 

? 

:• 

Opr 1 = pattern, opr 2 = source 

Opr 2 is changed from packed to zoned and 
edited under control of opr 1. 

Opr's processed left to right 
(fill char is 1st char in pattern field unless 
it is a digit/select/significance-start char.) 
(Opr 1 terminates operation) 

See IBM System/370 ftinciples of 

Operation, GA22-7000 

Addr 

Data 

Opera 

Protect 

Source 

0 field =0 

1 field <0 

2 field > 0 

Edi t and Mark 

EDMK 

DF 

ss 

D1 (L, B1 ), D2(B2) 

Same as Edit 

(Adr of 1st significant result digit 
recorded in GPR 1) 

Opera 

Addr 

Data 

Protect 

Source 

0 field = 0 : 

1 field < 0 i 

2 field >0 ; 

Exclusive OR 

X 

57 

RX 

Rl, D2(X2,B2) 

Exclusive-OR opr 2 and opr 1 and the 
modulo-two sum placed in opr 1 

Addr 

Specif 

0 Result = 0 

1 Resu lt * 0 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Exclusive OR 

XC 

D7 

SS 

D1(L,B1), D2(B2) 

Exclusive-OR opr 2 and opr 1 and 
modulo-two sum placed in opr 1. 

Addr 

Protect 

0 Resu1t = 0 

1 Resu1t / 0 

Exclusive OR 

XR 

17 

RR 

Rl, R2 

Exclusive-OR opr 2 and opr 1 and 
modulo-two sum placed in opr 1. 


0 Result = 0 

1 Result / 0 

Exclusive OR 
Immediate 

XI 

97 

SI 

D1(B1), 12 

Exclusive-OR opr 2 and opr 1 and 
modulo-two sum placed in opr 1. 

Addr 

Protect 

0 Resu1t = 0 

1 Result 4 1 

Execute 

EX 

44 

RX 

Rl, D2(X2,B2) 

The instruction addressed by opr 2 
is modified by opr 1 and executed. 

Addr 

Exec 

Specif 

May be 
set by this 
instruction 

Halve, Long 

HDR 

24 

RR 

Rl, R2 

Opr 2 is divided by 2 and placed in 
opr 1. 

Specif 

Opera 

Unchanged 

Halve, Short 

HER 

34 

RR 

Rl, R2 

Opr 2 is divided by 2 and placed in 
opr 1 . 

Specif 

Opera 

Unchanged 

Halt Device 

HDV 

9E 01 

S 

D1(B1) 

Execution of current 1/O op at 

addressed dev is terminated 

(full op cd - 1001 1110 xxxx xxx 1). 

Priv 

0 Subchan busy with another 
dev or int pending 

1 CSW stored 

2 Chan working with 
another device 

Halt I/O 

HIO 

9E00 

S 

D1(B1) 

Execution of current 1/O op at 
addresses dev, subchan, and chan term 
(ful 1 op cd - 1001 1110 xxxx xxxO). 

Priv 

0 Chan or sub¬ 
chan not working 

1 CSW stored 

2 Burst oper 
terminated 

3 Not operational 

Insert Character 

1C 

43 

RX 

Rl, D2(X2,B2) 

Byte at opr 2 is inserted in bits 24-31 
of reg at opr 1 . 

Addr 

Unchanged 

Insert Characters 
Under Mask 

ICM 

BF 

RS 

Rl, M3, D2(B2) 

1 to 4 bytes at opr 2 are inserted 
in reg at opr 1 under control of 
mask. 

Addr 

Protect 

Opera 

0 Selected bits or mask* 0 

1 Leftmost bit of spec byte= 1 

2 Leftmost bit of spec byte=Q 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Insert PSW Key 

IPK 

B208 

S 


Protection key of current PSW inserted into 
reg 2 bit pos 24-27. Bits 28-31 set to 0. 

Priv 

Unchanged 

Insert Storage Key 

ISK 

09 

RR 

Rl, R2 

Opr 2, 8-20 fetches 7-bit sto key byte. 

7-bit sto key is placed in opr 1, 24-30. 

Bits 0-23 unchanged, 31 set to zero. 

(opr 2, 0-7 and 21—27 ignored, 28-31 
must = 0) 

Priv 

Addr 

Specif 

Opera 

Unchanged 

Load 

L 

58 

RX 

R1, D2(X2,B2) 

Load opr 2 into opr 1. 

Addr 

Specif 

Unchanged 

Load 

LR 

18 

RR 

Rl, R2 

Opr 2 into opr 1. 

None 

Unchanged 

Load Address 

LA 

41 

RX 

Rl, D2(X2,B2) 

Opr 2, 12—31 to opr 1, 8—31 . 

Opr 1, 0- 7 set to zero 
(no storage reference made) 

None 

Unchanged 

Load and Test 

LTR 

12 

RR 

Rl, R2 

Opr 2 into opr 1 

(When opr 1 and opr 2 specify same reg 
result is test without data transfer.) 

None 

0 Result = 0 

1 Result < 0 

2 Result > 0 

Load and Test (Long) 

LTDR 

22 

RR 

Rl, R2 

Opr 2 into opr 1 
(FPR) (FPR) 

(When opr 1 and opr 2 specify same reg 
result is test without data transfer.) 

Specif 

Opera 

0 Result fraction = 

1 Result < 0 

2 Result > 0 

Load and Test (Short) 

LTER 1 

32 

RR 

Rl, R2 

Opr 2 inio opr 1 
(FPR) (FPR) 

(Low-order half of opr 1 unchanged) 

(When opr 1 and opr 2 specify same reg 
result is test without data transfer.) 

Specif 

Opera 

0 Result Fraction = 

1 Result < 0 

2 Resul t > 0 

Load Complement 

LCR 

13 

RR 

■ 

R l , R2 

2's complement of opr 2 Into opr 1 
(overflow when max negative number is 
complemented) 

Fxpt Oflo 

0 Result = Expt Ufl 

1 Result < 0 

2 Result > 0 

3 Overflow 
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Operation 

Mnemoni c 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Load Complement 
(Short) 

lcer ; 

33 

RR 

Rl, R2 

Opr 2 into opr i 
(FPR) (FPR) 

(Opr 1 sign inverted, low-order half 
unchanged) 

(Opr 2 unchanged) 

Specif 

Opera 

0 Result 

Fract = 0 

1 Result <0 

2 Result>0 

Load Complement 
(Long) 

LC DR 

23 

RR 

Rl, R2 

Opr 2 into opr 1 
(FPR) (FPR) 

(Opr 1 sign inverted, low-order half 
unchanged) 

(Opr 2 unchanged) 

(Low-order half of opr 1 unchanged) 

Specif 

Opera 

0 Resu 11 

Fract = 0 

1 ResultcO 

2 Result> 0 

Load Control 

LCTL 

B7 

RS 

Rl, R3, D2(B2) 

Cntl regs from opr 1 to opr 3 
loaded with info starting at 
opr 2. 

Addr 

Specif 

Priv 

Protect 

Opera 

Unchanged 

Load Halfword 

LH 

48 

RX 

Rl, D2(X2,B2) 

Opr 2 halfword expanded to full word 
with sign bits, placed in opr 1 
(High-order expanded) 

Addr 

Specif 

Unchanged 

Load (Long) 

LD 

68 

RX 

Rl, D2(X2,B2) 

Opr 2 into opr 1 
(Sto) (FPR) 

Addr 

Specif 

Opera 

Unchanged 

Load (Long) 

LDR 

28 

RR 

Rl, R2 

Opr 2 into opr 1 
(FPR) (FPR) 

Specif 

Opera 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Load Multiple 

LM 

98 

RS 

Rl, R3, D2(B2) 

Opr 2 into GPRs in ascending order 
Starting reg specified by Rl, ending reg 
specified by R3 
(Reg wrap-around possible) 

Addr 

Specif 

Unchanged 

Load Negative 

LNR 

11 

RR 

Rl, R2 

2's complement of opr 2 into opr 1 
(Reg) (Reg) 

(If opr 2 contains a (-) number or zero, 
the number is unchanged) 

None 

0 Result = 0 

1 Result < 0 

Load Negative 
(Long) 

LNDR 

21 

RR 

Rl, R2 

Opr 2 into opr 1 
(FPR) (FPR) 

Opr 1 sign bit is 1 (negative) 

Opr 2 unchanged 

Specif 

Opera 

0 Result 

Fract = 0 

1 Result < 0 

Load Negative 
(Short) 

LNER 

31 

RR 

Rl, R2 

Opr 2 into opr 1 

Opr 1 sign bit is 1 (negative) 

Opr 2 unchanged 

(Low-order half of opr 1 unchanged) 

Specif 

Opera 

0 Result 

Fract = 0 

1 Result <0 

Load Positive 

LPR 

10 

RR 

Rl, R2 

Opr 2 into opr 1 

(Negative numbers are complemented) 
(Overflow occurs when the max negative 
number is complemented) 

Fxpt Oflo 

0 Result = 0 

2 Result > 0 

3 Overflow 

Load Positive 
(Long) 

LPDR 

20 

RR 

Rl, R2 

Opr 2 into opr 1 
(FPR) (FPR) 

Opr 1 sign bit made a zero (positive) 

Opr 2 unchanged 

Specif 

Opera 

0 Result 

Fract = 0 

1 Result <0 

2 Result >0 

Load Positive 
(Short) 

LPER 

30 

RR 

Rl, R2 

Opr 2 into opr 1 

Opr 1 sign bit made a zero (positive) 

Opr 2 unchanged 

(Low-order half of opr 1 unchanged) 

Specif 

Opera 

0 Result 

Fract - 0 

1 Result < 0 

2 Result >0 
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Operation 

Mnernon i c 

Op Code 

Format 

Operands 

Load PSW 

LPSW 

82 

SI ' 

D1 (Bl) 

Load (Short) 

LE 

78 

RX 

Rl, D2(X2,B2) 

Load (Short) 

LER 

38 

RR 

Rl, R2 

Load Real Address 

LRA 

B1 

RX 

Rl, D2(X2,B2) 

Load Rounded 
(Extended to Long) 

LRDR 

25 

RR 

Rl, R2 

i 

Load Rounded 
(Long to Short) 

LRER 

35 

RR 

Rl, R2 


Descfiptioi 


Excepth 


Cond Code 


Opr 1 into PSW 

(Opr 1 low-order 3 bit adr must = 0) 
(instruction used to enter the problem or 
wait state) 

Priv 

Addr 

Specif 

Set according to 
new PSW bits 

34 and 35 

Opr 2 into opr 1 
(Sto) (FPR) 

(Low-order half of opr 1 unchanged) 

Addr 

Specif 

Opera 

Unchanged 

Opr 2 into opr 1 
(FPR) (FPR) 

(Low-order half of opr 1 unchanged) 

Specif 

Opera 

Unchanged 

Real adr corresponding to opr 2 logical 
adr placed in opr 1. 

Priv 

Addr 

Specif 

Opera 

0 Translation 
available 

1 Seg tbl entry 
invalid 

2 Page tbl entry 
inval id 

3 Seg or page tbl 
length violation 

Opr 2 is rounded from extended to long 
format and put in opr 1 
(FPR pair) (FPR) 

Only FPR 0 and FPR 4 may be specified 
for opr 2. 

Specif 

Exp Oflo 
Opera 

Unchanged 

Opr 2 is rounded from long to short format 
and put into opr 1 
(FPR) (FPR) 

Add an absolute 1 to opr 2, bit 32; carry 
will ripple left. 

Lower half of result FPR will remain un¬ 
changed . 

Specif 

Exp Oflo 
Opera 

Unchanged 




1-34 0S/VS1 Programmer’s Reference Digest 


Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Monitor Cal 1 

MC 

AF 

SI 

D1 (B 1),I2 

Causes program interrupt if monitor- 
mask bit in cont. reg 8 = appropriate 
monitor class specified in positions 

12-15 of 12. Real storage locations 148 
and 156 will zero, loc 149=12, and loc. 
157-159=D1 + contents to B1. 

Monitor 

Specif 

Unchanged 

Move Characters 

MVC 

D2 

SS 

D1(L,B1), D2(B2) 

Opr 2 to opr 1 

(Left to right byte by byte) 

(Max number of bytes moved: 256) 

(No restriction on overlapping fields) 

Addr 

Protect 

Unchanged 

Move Immediate 

MVI 

92 

SI 

D1(B1), 12 

Move the 1 byte from the instruction stream 
(8-15) to opr 1. 

Addr 

Protect 

Unchanged 

Move Long 

MVCL 

OE 

RR 

Rl, R2 

Move char from area spec in opr 2 to area 
spec in opr 1. Opr 2 is even/odd reg pair 
where R2 is "from adr", R2+1 bits 0-7 is 
padding char, and R2+1 bits 8-31 is length. 
Opr 1 is even/odd reg. pair 
where Rl is "to" addr, Rl + 1 
bits 8-31 is length. 

Addr 

Specif 

0 Opr cnts = 

1 Opr 1 cnt< 
opr 2 cnt 

2 Opr 1 cnt> 
opr 2 cnt 

3 No move due 
to destructive 
overlap. 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Move Numerics 

MVN 

D1 

SS 

D1 (L, B1), D2(B2) 

The 4 low-order bits of opr 2 bytes into the 

4 low-order bits of opr 1 bytes. 

(Left to right byte by byte) 

(Max number of bytes moved: 256) 
(High-order bits of each byte of both opr's 
unchanged.) 

(No restriction on overlapping fields.) 

Addr 

Protect 

Unchanged 

Move wi th Offset 

MVO 

FI 

SS 

D1 (LI ,B1), D2 
(L2,B2) 

Opr 2 to the left of and adjacent to the 
low-order 4 bits of opr 1. 

(Right to left byte by byte) 

(Data can be packed, unpacked, or binary 
format) 

(No restriction on overlapping fields) 
(Processing terminated by high-order bit 
in opr 1) 

(If opr 2 field shorter than opr 1, insert 
leading zeros in opr 2.) 

Addr 

Protect 

Unchanged 

Move Zones 

MVZ 

D3 

SS 

D1 (L,B1), D2(B2) 

The 4 high-order bits of opr 2 bytes into the 
4 high-order bits of opr 1 bytes 
(Left to right byte by byte) 

(Max number of bytes moved: 256) 

(Low-order bits of each byte of both opr's 
unchanged.) 

(No restriction on overlapping fields) 

Addr 

Protect 

Unchanged 

Multiply 

M 

5C 

RX 

Rl, D2(X2,B2) 

Multiply opr 1 by opr 2 

Product: even and odd pair regs 

Opr 1 becomes the product. 

(Opr 1 must specify an even-numbered reg) 
(Sign bit extended to 1st significant product 
digit) 

Addr 

Specif 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Except ibns 

Cond Code 

Multiply 

MR 

1C 

RR 

Rl, R2 

Multiply opr 1 by opr 2 

Product: even and odd pai r of regs 

Opr 1 becomes the product. 

(Opr 1 must specify an even-numbered reg) 
(Sign bit extended to 1st significant product 
digit) 

Specif 

Unchanged 

Multiply (Extended) 

MXR 

26 

RR 

Rl, R2 

Multiply extended opr 1 by extended opr 2 
(FPR pair) (FPR pair) 

Extended product is put in opr 1 (FPR pair) 
(Only FPR 0 and FPR 4 may be specified for 
either opr 1 or opr 2) 

(Low-order characteristic is made 14 < 
high-order characteristic except when the 
result would be> 0, then the low-order 
characteristic is made 1 28 > its correct 
value; sign of low-order characteristic re¬ 
mains the same as high-order characteris¬ 
tic) 

Specif 

Exp Oflo 
Exp Uflo 
Opera 

Unchanged 

Multiply Decimal 

MP 

FC 

SS 

Dl (LI , B1), 
D2(L2,B2) 

Multiply opr 1 by opr 2 

Multiplier: 8 bytes max size and shorter 
than the multiplicand. 

Multiplicand: must have high-order zeros 
equal to or greater than the size of the 
multiplier. 

(Both opr's in packed format) 

(Right to left byte by byte) 

Product: must contain at least 1 high-order 
zero. 

Addr 

Specif 

Data 

Protect 

Opera 

1 

Unchanged 
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Oper ation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Multiply Halfword 

MH 

4C 

RX 

Rl, D2(X2,B2) 

Multiply opr 1 by opr 2 
(Opr 2 is expanded to a 32-bit integer) 
(Only the low-order 32 bits of the product 
opr 1, are retained) 

Addr 

Specif 

Unchanged 

Multiply (Long) 

MD 

6C 

RX 

Rl, D2(X2,B2) 

Multiply opr 1 by opr 2 
(FPR) (Sto) 

Product: prenormalizes the opr's and post- 
normalizes the intermediate product. 

(If all fraction digits (15) = zero; the 
product, sign and char are made zero.) 
(The intermediate product fraction is 
truncated before left-shifting.) 

Addr 

Specif 

Exp Oflo 
Exp Uflo 
Opera 

Unchanged 

Multiply (Long) 

MDR 

2C 

RR 

Rl, R2 

Multiply opr 1 by opr 2 
(FPR) (FPR) 

Product: prenormalizes the opr's and post- 
normal izes the intermediate product. 

(If all fraction digits (15) = 0; the product 
sign and char are made zero.) 

(The intermediate product fraction is 
truncated before left-shifting.) 

Specif 

Exp Oflo 
Exp Uflo 
Opera 

Unchanged 

Multiply (Long to 
Extended) 

MXD 

67 

RX 

Rl, D2(X2,B2) 

Multiply long opr 1 by long opr 2. 

(FPR) (Sto) 

Extended product is put in FPR pair speci¬ 
fied by opr 1 

(Only FPR 0 and FPR 4 may be specified 
for opr 1) 

(Signs of FPR pair are the same) 

(Can only use doubleword boundary in stor¬ 
age) 

(Continued) 

Addr 

Specif 

Exp Oflo 
Exp Uflo 
Protect 
Opera 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Multiply (Long to 
Extended) (Cont'd) 

MXD 

67 

RX 

Rl, D2(X2,B2) 

(Low-order characteristic is made 14< 
high-order characteristic except when the 
result would be > 0, then the low-order 
characteristic is made 128 >its correct 
value; sign of low-order characteristic 
remains the same as high-order character¬ 
istics) 



Multiply (Long to 
Extended) 

MXDR 

27 

RR 

Rl, R2 

Multiply long opr 1 by long opr 2. 

(FPR) (FPR) 

Extended product is put in FPR pair 
specified by opr 1 

(Only FPR 0 and FPR 4 may be specified 
for opr 1) 

(Signs of FPR pair are the same) 

(Low-order characteristic is made 14 < 
high-order characteristic except when the 
result would be >0, then the low-order 
characteristic is made 128> its correct 
value; sign of low-order characteristic 
remains the same as the high-order charac¬ 
teristic) 

Specif 

Exp Oflo 
Exp Uflo 
Opera 

Unchanged 

Multiply (Short) 

ME 

7C 

RX 

Rl, D2(X2,B2) 

Multiply opr 1 by opr 2 
(FPR) (Sto) 

Product: prenormalizes the opr's and post- 
normalizes the intermediate product. 

(If all fraction digits (14) = 0; the product 
sign and char are made zero.) 

(The intermediate product fraction is trun¬ 
cated before left-shifting.) 

(The 2 low-order fraction digits of the 
product always = zero.) 

Addr 

Specif 

Exp Oflo 
Exp Uflo 
Opera 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Multiply (Short) 

MER 

3C 

RR 

Rl, R2 

Multiply opr 1 by opr 2 
(FPR) (FPR) 

Product: prenormalizes the opr's and post¬ 
normal izes the intermediate product. 

(If all fraction digits (14) = 0; the product 
sign and char are made zero.) 

(The intermediate product fraction is trun¬ 
cated before left-shifting.) 

Specif 

Exp Oflo 

Exp Uflo 
Opera 

Unchanged 

No Operation 

NOP 

47 (BC 0) 

RX, 

Ext. 

D2(X2,B2) 

Comp mask with cond code 

None 

Unchanged 

No Operation 

NOPR 

07(BCR0) 

RR, 

Ext. 

R2 

Comp mask with cond code 

None 

Unchanged 

OR Logical 

O 

56 

RX 

Rl, D2(X2,B2) 

The ORed sum of both opr's into opr 1 

Addr 

Specif 

0 Result = 0 

1 Result ^ 0 

OR Logical 

OC 

D6 

SS 

D1 (L, Bl), D2(B2) 

The ORed sum of both opr's into opr 1 
(Left to right byte by byte) 

(Max number of bytes ORed: 256) 

Addr 

Protect 

0 Result = 0 

1 Result / 0 

OR Logical 

OR 

16 

RR 

Rl, R2 

The ORed sum of both opr's into opr 1 

None 

0 Result = 0 

1 Result ^ 0 

OR Logical 

Immediate 

Ol 

96 

SI 

D1(B1), 12 

OR the 1 byte from the instruction stream 
(8-15) to opr 1 

Addr 

Protect 

0 Result = 0 

1 Result / 0 

Pack 

PACK 

F2 

SS 

D1(L1,B1), 

D2(L2,B2) 

Change opr 2 from zoned to packed format 
and place into opr 1. 

(Right to left byte by byte) 

(No restriction on overlapping fields) 

(Opr 2 may be extended with hi-order zeros) 

Addr 

Protect 

Unchanged 

Purge Translation 
Lookaside Buffer 

PTLB 

B20D 

S 

— 

Invalidate current info in TLB. 

Priv 

Opera 

Unchanged 


Ext. — Extended Mnemonic 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Read Direct 

RDD 

85 

SI 

D1(B1), 12 

The 1 byte from the instruction stream 
(8-15) is placed on the signal-out, in a 
form of 8 timing pulses, along with a 9th 
pulse at the read-out line. The 8 bit lines 
at the direct-in lines are stored in 0 or 1. 

Priv 

Addr 

Protect 

Opera 

Unchanged 

Reset Reference 

Bit 

RRB 

B213 

S 

D1(B1) 

Set refence-bit=0 for 2048 byte block 
referenced by opr 1. CC indicates setting 
of ref and change bits prior to exec of this 
instruction. 

Priv 

Opera 

0 Ref = 0 

Chg = 0 

1 Ref = 0 

Chg = 1 

2 Ref = 1 

Chg = 0 

3 Ref = 1 

Chg = 1 

Set Clock 

SCK 

B204 

S 

D1 (B1) 

Replace curr val of TOD clock with eight 
bytes starting at opr 1. 

Addr 

Specif 

Priv 

Protect 

Opera 

0 Clock val set 

1 Clock val secure 

2 - 

3 Clock not oper 

Set Clock Compar¬ 
ator 

SCKC 

B206 

S 

D1(B1) 

Dblwd at opr 1 replaces curr value of clock 
comparator 

Addr 

Priv 

Specif 

Protect 

Opera 

Unchanged 

Set CPU Timer 

SPT 

. 

B208 

S 

D1 (B1) 

Dblwd at opr 1 replaces curr value of CPU 
timer. 

Addr 

Priv 

Specif 

Protect 

Opera 

Unchanged 

Set Prefix 

SPX 

B210 

S 

D2(82) 

Prefix reg contents replaced by contents of 
bit pos 8- 19 of word located Dy opr 2 
address. 

Specif 

Opera 

Priv 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Set Program Mask 

SPM 

04 

RR 

R1 

Opr 1 (2-7) replaces the cond code and 
program mask bits of the current PSW 
(34-39) (Bits 0, 1 and 8-31 of op> 1 are 
ignored and unchanged.) 

None 

Set by bits 

2 and 3 

Set PSW Key 

From Address 

SPKA 

B20A 

S 

D1(B1) 

Protection key of PSW replaced by bits 

24-27 of the opr address. 

Opera 

Priv 

Unchanged 

Set Storage Key 

SSK 

08 

RR 

Rl, R2 

Cpr 1 (24-30) replaces the storage key 
specified by opr 2 

(Opr 1 bits 0-23 and 31 are ignored) 

(Opr 2 bits 0-7 and 21-27 are ignored) 

(Bits 28-31 must be zero) 

Addr 

Priv 

Specif 

Opera 

Unchanged 

Set System M as k 

SSM 

80 

S 

D1(B1) 

Opr 1 (1 byte) replaces the system mask 
bits of the current PSW (0-7). 

Priv 

Addr 

Unchanged 

Shift and Round 
Decimal 

SRP 

F0 

SS 

D1(L1,B1), 
D2(B2), 13 

Shift opr 1 as specified by opr 2. If shift 
is right, round by factor in opr 3. 

Protect 

Opera 

Addr 

Data 

Dec Oflo 

0 Result = 0 

1 Result < 0 

2 Result > 0 

3 Result Oflo 

Shift Left Double 
Algebraic 

SLDA 

8F 

RS 

Rl, D2(B2) 

Opr 1 (even and odd regs) is shifted left 
the number of times equal to opr 2 (low- 
order 6 bits). 

| 

Specif 

Fxpt Oflo 

0 Result = 0 

1 Result < 0 

2 Result > 0 

3 Overflow 

Shift Left Double 
Logical 

SLDL 

8D 

RS 

Rl, D2(B2) 

Opr 1 (even and odd regs) is shifted left 
the number of times equal to opr 2 (low- 
order 6 bit.). 

(Hi-order bit participates in the shift) 

Specif 

Unchanged 

Shift Left Single 
Algebraic 

SLA 

8B 

RS 

Rl, D2(B2) 

Opr 1 is shifted left the number of times 
equal to opr 2 (low-order 6 bits). 

Fxpt Oflo 

0 Result = 0 

1 Result < 0 

2 Result > 0 

3 Overflow 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Shift Left Single 
Logical 

SLL 

89 

RS 

Rl, D2(B2) 

Opr 1 is shifted left the number of times 
equal to opr 2 (low-order 6 bits). 

(Hi-order bit participates in the shift) 

Non. 

Unchanged 

Shift Right Double 
Algebraic 

SRDA 

8E 

RS 

Rl, D2(B2) 

Opr 1 (even and odd regs) is shifted right 
the number of times equal to opr 2 
(Low-order 6 bits). 

Specif 

0 Result = 0 

1 Result < 0 

2 Result > 0 

Shift Right Double 
Logical 

SRDL 

8C 

RS 

Rl, D2(B2) 

Opr I (even and odd regs) is shifted right 
the number of times equal to opr 2 
(low-order 6 bits). 

(Hi-order bit participates in the shift) 

Specif 

Unchanged 

Shift Right Single 
Algebraic 

SRA 

8A 

RS 

Rl, D2(B2) 

Opr 1 is shifted right the number of times 
equal to opr 2 (low-order 6 bits). 

(Shifting (+) numbers: vacated bits are 
replaced with zeros.) 

(Shifting (-) numbers: vacated bits are 
replaced with ones.) 

None 

0 Result = 0 

1 Result <0 

2 Result >0 

Shift Right Single 
Logical 

SRL 

88 

. 

RS 

Rl, D2(B2) 

Opr I is shifted right the number of times 
equal to opr 2 (low-order 6 bits). 

(Vacated hits are replaced with zeros) 
(Hi-order bit participates in the shift) 

None 

Unchanged 

Signal Processor 

SIGP 

AE 

RS 

Rl, R3, D2(B2) j 

An eight-bit order code (bits 24-31 of the 
second-operand address) is transmitted to 
the CPU designated by the processor 
address (bits lb-31) in the third operand. 

Opera 

Priv 

0 = Order code 

1 = Status stored 

2 = Channel or 

subchannel 

3 = Channel not 

operational 

Start I/O 

SIO 

9C00 

5 

D1(B1) 

Opr 1 (16-31) identifies the selected chan, 
ctl unit and I/O device to perform write, 
read, read bkwd, control or sense oper. 

The CAW at loc 48 is fetched, which 
locates the first CCW. 

The SIO is initiated providing the addressed 
chan, ctl unit and l/O device are available 
without pending interrupt errors. 

Exceptional conditions pending 
(Full op cd - 1001 1100 xxxx xxxO) 

Pri v 

0 = I/O oper 
initiated and 
chan pro¬ 
ceeding with 
operation. 

1 = CSW stored 

2 = Chan or sub¬ 

channel busy 

3 = Not opera- 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Start I/O Fast 
Release 

SI OF 

9C01 

$ 

Dl(Bl) 

This instruction takes advantage of the 
block-multiplex channel, but is otherwise 
identical to SIO. (Full op cd - 1001 

1100 xxxx xxxl). 

Priv 

Same as SIO 

Store 

■ ' 

ST 

50 

RX 

Rl, D2(X2,B2) 

Opr 1 is stored into opr 2. 

Addr 

Specif 

Protect 

Unchanged 

Store Channel ID 

STIDC 

B203 

S 

D1(B1) 

Store opr 1 at loc 168 in main storage. 

Priv 

Opera 

0 ID stored 

1 CSW stored 

2 Chan activity 

ID not stored 

3 Not oper. 

Store Character 

STC 

42 

RX 

Rl, D2(X2,B2) 

Opr 1 (24-31) replaces the character at opr 
2's address. 

Addr 

Protect 

Unchanged 

Store Characters 
Under Mask 

STCM 

BE 

RS 

Rl, M3, D2(B2) 

Bytes selected from opr 1 under control of 
mask are stored at opr 2. 

Addr 

Opera 

Protect 

Unchanged 

Store Clock 

STCK 

B205 

S 

D1(B1) 

Current Val of TOD clock stored in 8 bytes 
at opr 1. 

Addr 

Protect 

Opera 

0 Clock in set 
state 

1 Clk in not-set 
state 

2 Clk in error 

3 Clk not oper 
or in stopped 
state 

Store Clock 
Comparator 

STCKC 

B207 

S 

D1(B1) 

Curr contents of clock comparator stored at 
opr 1. 

Addr 

Priv 

Specif 

Protect 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Store Control 

STCTL 

86 

RS 

R1, R3, D2(B2) 

Control regs from opr 1 to opr" 3 stored at 
opr 2. 

Priv 

Addr 

Specif 

Protect 

Opera 

Unchanged 

Store CPU Address 

STAP 

8212 

S 

D2(B2) 

CPU address stored at halfword location 
designated by second-operand oddress. 

Specif 

Opera 

Priv 

Unchanged 

Store CPU ID 

STIDP 

B202 

S 

D1(B1) 

CPU info stored in 8 bytes at oprl. 

Priv 

Addr 

Specif 

Protect 

Opera 

Unchanged 

Store CPU Timer 

STPT 

B209 

S 

D1(B1) 

Curt contents of CPU timer stored in 
dblwd at opr 1. 

Priv 

Addr 

Specif 

Protect 

Opera 

Unchanged 

Store Halfword 

STH 

40 

RX 

R1, D2(X2,B2) 

Opr 1 (16 low-Order bits) is stored at 
opr 2's location. 

(Hi-order bits, opr 1, ignored and un¬ 
changed) 

Addr 

Specif 

Protect 

Unchanged 

Store (Long) 

STD 

60 

RX 

R1, D2(X2,B2) 

FP opr 1 to opr 2's location. 

Addr 

Protect 

Specif 

Opera 

Unchanged 

Store Multiple 

STM 

90 

RS 

Rl, R3, D2(B2) 

Rl thru R3 are stored at opr 2's location 
in ascending order. Starting reg specified 
by Rl, ending reg specified by R3. 

(Reg wrap-around possible) 

Addr 

Specif 

Protect 

Unchanged 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 


Store Prefix 

STPX 

B2U 

S 

D2(B2) 


Store (Short) 

STE 

70 

RX 

Rl, D2(X2,B2) 


Store Then AND 
System Mask 

STNSM 

AC 

SI 

D1(B1), 12 


Store Then OR 
System Mask 

STOSM 

AD 

SI 

D1(B1), 12 


Subtract 

S 

5B 

RX 

Rl, D2(X2) 









Subtract 


SR 


RR 


Rl, R2 


Description 


Exceptions 


Cond Code 


Prefix register contents are stored at word 
location designated by second operand 
address. 

Specif 

Opera 

Priv 

Unchanged 

FP opr 1 is stored at opr 2's location 
(Low-order half of FPR ignored and un¬ 
changed) 

Opera 

Addr 

Specif 

Protect 

Unchanged 

Bits 0-7 current PSW stored at opr 1, then 
these bits ANDed with opr 2 and replaced 
in current PSW. 

Addr 

Priv 

Protect 

Opera 

Unchanged 

Bits 0-7 of current PSW stored at opr 1, 
then these bits ORed with opr 2 and 
replaced in current PSW. 

Addr 

Priv 

Protect 

Opera 

Unchanged 

Subtract opr 2 from opr 1 and place the 
difference into opr 1. 

Addr 

Fxpt Oflo 
Specif 

0 Dif = 0 

1 Dif < 0 

2 Dif>0 

3 Overflow 

Subtract opr 2 from opr 1; difference 
placed into opr 1 . 

Fxpt Oflo 

0 Dif = 0 

1 Dif < 0 

2 Dif > 0 

3 Overflow 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Subtract Decimal 

SP 

FB 

SS 

D1 (LI, B1), D2(L2,B2) 

Subtract dec opr 2 from opr 1; 
difference stored into opr 1 . 

(Right to left byte by byte) (Both opr's must 
be in packed format) (Fields can overlap if 
low-order bytes coincide) 

Opera 

Addr 

Data 

Dec Oflo 
Protect 

0 Dif = 0 

1 Dif < 0 

2 Dif >0 

3 Overflow 

Subtract Halfword 

SH 

4B 

RX 

R1, D2(X2, B2) 

Opr 2 halfword expanded to full word and 
subtracted from opr 1; difference placed 
into opr ]. 

Addr 

Fxpt Oflo 
Specif 

0 Dif = 0 

1 Dif<0 

2 Dif >0 

3 Overflow 

Subtract Logical 

SL 

5F 

RX 

Rl, D2(X2,B2) 

Subtract opr 2 from opr 1; 
difference placed into opr 1. 

Addr 

Specif 

0 — 

1 Dif/0 

No Carry 

2 Dif = 0 
Carry 

3 Dif / 0 
Carry 

Subtract Logical 

SLR 

IF 

RR 

Rl, R2 

Subtract opr 2 from opr 1; 
difference placed into opr 1. 

None 

0 — 

1 Dif ^ 0 

No Carry 

2 Dif = 0 

Carry 

3 Dif /0 

Carry 

Subtract Normalized 
(Extended) 

SXR 

37 

RR 

Rl, R2 

FP subtract extended opr 2 from extended 
opr 1. 

(FPR pair) (FPR pair) 

Extended difference is put in opr 1 (FPR 
pair) (Sign of extended opr 2 is inverted 
before the addition) 

(Only FPR 0 and FPR 4 may be specified 
for either opr 1 or opr 2) 

(Continued) 

Specif 

Exp Oflo 
Exp Uflo 
Signif 

0 Fract = 0 

1 Fract < 0 

2 Fract >0 

3 — 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Subtract Normalized 
(Extended) (Cont'd) 

SXR 

37 

RR 

Rl, R2 

(High-order and low-order signs of a FPR 
pair are always the same in extended 
precision) 

(Low-order characteristic is made 14 < 
high-order characteristic except when the 
result would be > 0, then the low-order 
characteristic is made 128 > its correct 
value; sign of low-order characteristic 
remains the same as high-order charac¬ 
teristic) 



Subtract Normalized 
(long) 

SD 

6B 

._ ... 

RX 

Rl, D2(X2,B2) 

FP Subtract opr 2 from opr 1 and the 
difference placed into opr 1. 

(The sign of opr 2 is inverted before the 
addition.) 

Addr 

Specif 

Signif 

Exp Oflo 
Exp Uflo 

Result 

0 Fraet * 0 

1 Result< 0 

2 Result > 0 

3 Exp Oflo 

Subtract Normalized 
(Long) 

SDR 

2B 

RR 

Rl, R2 

FP Subtract opr 2 from opr 1 
(FPR) (FPR) 

(The sign of opr 2 is inverted before the 
addition.) 

Specif 

Signif 

Exp Oflo 
Exp Uflo 

Result 

0 Fract = 0 

1 Result <0 

2 Result > 0 

3 Exp Oflo 

Subtract Normalized 
(Short) 

SE 


RX 

Rl, D2(X2,B2) 

FP Subtract opr 2 from opr 1 

(The sign of opr 2 is inverted before the 

addition.) 

(Low-order halves of FPR ignored and 
unchanged). 

Addr 

Specif 

Signif 

Exp Oflo 
Exp Uflo 

Result 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Subtract Normalized 
(Short) 

SER 

3B 

RR 

Rl, R2 

Subtract opr 2 from opr 1 

(The sign of opr 2 is inverted before the 

addition.) 

(Low-order halves of FPRs ignored and 
unchanged) 

Specif 

Signif 

Exp Oflo 

Exp Uflo 

Result 

0 Fract - 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 

Subtract 

Unnormalized (Long) 

SW 

6F 

RX 

Rl, D2(X2,B2) 

FP Subtract opr 2 from opr 1 
(Sto) (FPR) 

(The sign of opr 2 is inverted before the 
addition.) 

Addr 

Specif 

Signif 

Exp Oflo 
Opera 

Result 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 

Subtract 

Unnormalized (Long) 

SWR 

2F 

RR 

Rl, R2 

FP Subtract opr 2 from opr 1 
(FPR) (FPR) 

(The sign of opr 2 is inverted before the 
addition.) 

Specif 

Signif 

Exp Oflo 
Opera 

Result 

0 Fract - 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 

Subtract 

Unnormalized (Short) 

su 

7F 

RX 

Rl, D2(X2,B2) 

FP Subtract opr 2 from opr 1 
(Sto) (FPR) 

(Low-order half of FPR ignored and 
unchanged) 

(The sign of opr 2 is inverted before the 
addition.) 

Addr 

Specif 

Signif 

Exp Oflo 
Opera 

Result 

0 Fract = 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 

Subtract 

Unnormalized (Short) 

SUR 

3F 

RR 

Rl, R2 

FP Subtract opr 2 from opr 1 
(FPR) (FPR) 

(Low-order halves of FPRs ignored and 
unchanged) 

(The sign of opr 2 is inverted before the 
addition.) 

Specif 

Signif 

Exp Oflo 
Opera 

Result 

0 Fract == 0 

1 Result < 0 

2 Result > 0 

3 Exp Oflo 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Supervisor Call 

SVC 

OA 

RR 

1 

Immediate bits (8-15) placed in loc. 138 
and PSW swap performed . 

(16-23) are made zero. 

(Old PSW at loc 32). 

(New PSW from loc 96). 

None 

Unchanged 

Test and Set 

TS 

93 

SI 

D1 (Bl) 

Hi-order bit of 1st byte of opr adr sets 
cond code. 

Entire byte then set to 1 's 

Addr 

Protect 

0 Hi-order 
bit =0 

1 Hi-order 
bit = 1 

2 — 

3 — 

Test Channel 

TCH 

9F 

S 

D1 (Bl) 

Opr 1 (16-23) identifies the tested channel. 
(Bits 24-31 are ignored.) 

(Instruction checks the channel's status 
and sets appropriate cond code.) 

Pri v 

0 Chan AvI 

1 Int Pending 

2 Chan in 

Burst Mode 

3 Chan not 
Operational 

Test I/O 

TIO 

9D 

S 

• 

D1 (Bl) 

Opr 1 (16-31) identifies the tested channel, 
control unit, and I/O device. Used to clear 
a pending interrupt. 

(CSW stored at loc 64): 

Subchannel contains a pending interrupt. 

I/O device contains a pending interrupt. 

Control unit or I/O device is executing a 
previous operation or a pending chan¬ 
nel-end/control unit-end for another 

1/O device. 

Channel or I/O device equipment error or 
device not ready. 

Priv 

0 Available 

1 CSW 

Stored 

2 Channel or 
Subchan 

Busy 

3 Not 

Operational 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Test Under 

Mask 

TM 

91 

SI 

D1 (B1), 12 

Immediate bits (8-15) used as a mask to 
compare against opr 1. 

Mask bit 1: storage bit tested. 

Mask bit 0: storage bit ignored. 

Addr 

0 Selected 
bits all 
zero (mask 
is all zero) 

1 Selected 
bits mixed 

0‘s and 1 ‘s 

3 Selected 
bits all 1’s 

Translate 

TR 

DC 

■ 

SS 

D1(L,B1), D2(B2) 

Opr 1 (argument byte) is added to initial 
adr of opr 2; this generated adr is the loc of 
the function byte. 

The function byte replaces the original 
argement byte. 

(The operation proceeds left to right, byte- 
by-byte, and terminates when opr 1 field 
is exhausted. All data is valid.) 

Addr 

Protect 

Unchanged 

Translate 
and Test 

TRT 

DD 

SS 

D1 (L, B1), D2(B2) 

i 

Opr 1 (argument byte) is added to initial 
adr of opr 2; this generated adr is the loc 
of the function byte . 

When the function byte is zero, the next 
function byte is inspected. When the func¬ 
tion byte is nonzero, the argument byte adr 
is placed in G PR 1, bits 8-31, and the 
function byte is placed in GPR 2, bits 

24-31 (all high-order bits are unchanged), 
and the operation is terminated . 

(The operation proceeds left-to-right, 
byte-by-byte, and terminates when opr 1 
field is exhausted.) 

Addr 

0 All 
function 
bytes 0 

1 Non-0 
function 
byte met 

2 Last 
function 
byte 
non-0 

3 Not used 


System/370 Instructions (cont'd) 
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Operation 

Mnemonic 

Op Code 

Format 

Operands 

Description 

Exceptions 

Cond Code 

Unpack 

UNPK 

F3 

ss 

D1 (LI, B1), D2(L2, B2) 

Change opr 2 from packed to zoned format 
and place into opr 1. 

(Right to left byte by byte) 

(No restrictions on overlapping fields) 

(Opr 2 may be extended with hi-order zeros.) 

Addr 

Protect 

Unchanged 

Write Direct 

WRD 

84 

SI 

D1(B1), 12 

The 1 byte from the instruction stream 
(8-15) is placed on the timing signal out, 
in a form of 8 timing pulses, along with 
a 9th pulse at the write-out line. 

The 8 bit lines at the direct-out lines are 
brought up by opr 1 . 

Priv 

Addr 

Opera 

Unchanged 

Zero and Add 

ZAP 

F8 

ss 

D1 (LI, B1), D2(L2, B2) 

Opr 1 cleared and opr 2 placed in opr 1 
(Low-order opr's may coincide) 

(Opr 2 must be in packed format) 

(Opr 1 field must be large enough for all 
opr 2 significant digits) 

(Opr 2 extended with zeros to fill opr 1.) 

Addr 

Data 

Dec Oflo 

Protect 

Opera 

0 Result = 0 

1 Result< 0 

2 Result > 0 

3 Overflow 


System/370 Instructions (cont'd) 
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Operation 

Name Entry 

Operand Entry 

Is used to: 

ACTR 

A sequence symbol or blank 

A SETA expression 

Limit the number of AGO and AIF operations executed: prevent incessant looping. 

AGO 

A sequence symbol or blank 

A sequence symbol 

Unconditionally alter the sequence in which statements are processed. 

AIF 

A sequence symbol or blank 

A logical expression enclosed in 
parentheses, immediately followed 
by a sequence symbol 

Conditionally alter the sequence in which statements are processed. 

ANOP 

A sequence symbol or blank 

Must not be present 

Act as the target of AGO and AIF instructions. 

CCW 

Any symbol or blank 

Four operands, separated by commas 

Define and generate an 8-byte Channel Command word having doubleword alignment. 

CNOP 

Any symbol or blank 

Two absolute expressions, 
separated by a comma 

Align the location on a specified halfword boundary. 

COM 

Any symbol or blank 

Must not be present 

Reserve a common area of storage referred to by independent assemblies that are linked 
and loaded together or execution . 

COPY 

Must not be present 

One ordinary symbol 

Obtain and copy source code from a PDS member into the program being assembled. 

CSECT 

Any symbol or blank 

Must not be present 

Identify the beginning or continuation of a control section (see DSECT instruction). 

CXD 

Any symbol or blank 

Must not be present 

Allocate a fullword that will contain the sum of the lengths of all external dummy 
sections when the program is executed. 

DC 

Any symbol or blank 

One or more operands, separated 
by commas 

Define data constants in storage (see DS instruction). 

DROP 

A sequence symbol or blank 

One to sixteen absolute expressions, 
separated by commas; or blank 

Inform the assembler that specified registers are no longer to be used as base registers 
(see USING instruction). 

DS 

Any symbol or blank 

One or more operands, separated 
by commas 

Reserve areas of storage without assembling their contents (see DC instruction). 

DSECT 

Any symbol or blank 

Must not be present 

Initiate or continue a dummy section; describe an area of storage without reserving it 
(see CSECT instruction). 

DXD 

Any symbol 

One or more operands, separated 
by commas 

Identify and define an external dummy section . 


System Assembler Instructions 
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Operation 

Name Entry 

Operand Entry 

Is used to: 

EJECT 

A sequence symbol or blank 

Must not be present 

Start a new page in the assembly listing; specify the sectioning of the assembly listing J 

END 

A sequence symbol or blank 

A relocatable expression or blank 

Terminate the assembly of a source module . 

ENTRY 

A sequence symbol or blank 

. 

One or more relocatable symbols 
separated by commas 

Identify symbols that are defined in the same source module, but are referred to in 
another source module (see EXTRN, WXTRN instructions). 

EQU 

An ordinary symbol or a 
variable symbol 

One to three operands, separated 
by commas 

Assign values to symbols. 

EXTRN 

A sequence symbol or blank 

One or more relocatable symbols, 
separated by commas 

Identify symbols that are referred to in the same source module but are defined in 
another source module (see ENTRY, WXTRN instructions). 

GBLA 

GBLB 

GBLC 

Must not be present 

One or more variable symbols that 
are to be used as SET symbols, 
separated by commas. 

Define a global Arithmetic, 

Binary, or 

Character SET symbol. 

ICTL 

Must not be present 

One to three decimal values, 
separated by commas 

Alter the position of Begin, End, and Continuation columns in the source module. 

ISEQ 

Must not be present 

Two decimal values, separated 
by commas 

Sequence-check the source module statements. 

LCLA 

LCLB 

LCLC 

Must not be present 

One or more variable symbols, 
that are to be used as SET symbols, 
separated by commas. 3 

Define a local Arithmetic, 

Binary, or 

Character SET symbol. 

LTORG 

Any symbol or blank 

Not required 

Position a literal pool at other than the end of the first control section to ensure 
addressability of literals in a large control section. 

MACRO 3 

Must not be present 

Not required 

Indicate the beginning of a macro definition. 

MEND 3 

A sequence symbol or blank 

Not required 

Indicate the end of a macro definition. 

MEXIT 3 

A sequence symbol or blank 

Not required 

Indicate an exit from a macro definition. 

MNOTE 

A sequence symbol or blank 

A severity code (optional), comma, 
characters enclosed in apostrophes 

Display an error severity code, generate a message. 


System Assembler Instructions (cont'd) 
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Operation 

Name Entry 

Operand Entry 

Is used to: 

OPSYN 

An ordinary symbol 

A mnemonic operation, a macro or 
assembler operation, a machine 
instruction operation, ora blank 

Define a symbol to represent an operation code, or delete its properties as an operation 
code. 

ORG 

Any symbol or blank 

A relocatable expression 

Change the location counter to redefine portions of a control section, especially, 
constant tables. 

POP 

A sequence symbol or blank 

One or more operands, separated 
by commas 

Restore the PRINT or USING status saved by the most recent PUSH instruction. 

PRINT 

A sequence symbol or blank 

One to three operands 

Control the amount of detail printed in the assembly listing. 

PUNCH 

A sequence symbol or blank 

One to eighty characters, enclosed 
in apostrophes 

Punch one card with the data specified in the operand, substituting values for variable 
symbols (see REPRO instruction). 

PUSH 

A sequence symbol or blank 

One or more operands, separated 
by a comma 

Save the current PRINT or USING status (see POP instruction). 

RE PRO 

A sequence symbol or blank 

Not required 

Punch one card with the characters specified in the statement that follows (see PUNCH 
instruction). 

SETA 

SETB 

SETC 

A SETA symbol 

A SETB symbol 

A SETC symbol 

An arithmetic expression, 
a logical expression, or 
a character expression 

Assign a value to an Arithmetic, 

Binary, or 

Character SET symbol. 

SPACE 

A sequence symbol or blank 

A decimal self-defining term or 
blank 

Insert blank lines into the source module assembly listing to separate sections of code J 

START 

Any symbol or blank 

A self-defining term or blank 

Initialize the location counter for, and name the first control section of the module. 

TITLE 

A variable symbol, and/or 
character string, or sequence 
symbol, or blank 

One to 100 characters, enclosed 
in apostrophes 

Produce headings on the assembly listing pages, punch identifying characters into the 
object deck .1 

USING 

A sequence symbol or blank 

An absolute or relocatable expres¬ 
sion followed by 1 to 16 absolute 
expressions, separated by commas 

Identify registers that may be used by the assembler as base registers (see DROP 
instruction). 


System Assembler Instructions (cont'd) 



Operation 

Name Entry 

Operand Entry 

Is used to: 

WXTRN 

A sequence symbol or blank 

One or more relocatable symbols, 
separated by commas 

Identify symbols referred to in the same source module, but defined in another source 
module in the same load module (see EXTRN instruction). 

1 The statement itself does not appear in the 

assembly listing. 


1 SET symbols can be defined as subscripted SET symbols. 


3 Can be used only as part of a macro definition. 




System Assembler Statements 


Instruction 

Name Entry 

Operand Entry 

Model Statements 

An ordinary symbol, 
a variable symbol, 
a sequence 
symbol, a combina¬ 
tion of variable 
symbols and other 
characters that is 
equivalent to a 
symbol, or blank 

Any combination of char¬ 
acters (including 
variable symbols) 

Prototype Statement ^ 

A symbolic para¬ 
meter or blank 

Zero or more operands 
that are symbolic parameters, 
separated by commas 

Macro-Instruction 

Statement 

An ordinary symbol, 
a variable symbol, 
a sequence symbol, 
a combination of 
variable symbols 
and other charac¬ 
ters that is equiv-^ 
alent to a symbol, 
or blank 

Zero or more positional 
operands and/or zero 
or more keyword operands 
separated by commas^ 

Assembler Language 
Statement 

An ordinary symbol, 
a variable symbol, 
a sequence symbol, 
a combination of 
variable symbols 
and other charac¬ 
ters that is equiv¬ 
alent to a symbol, 
or blank 

Any combination of charac¬ 
ters (including variable 
symbols) 


^Can only be used as part of a macro definition. 

^Variable symbols appearing in a macro instruction are replaced 
by their values before the macro instruction is processed. 
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System Assembler Constants 


TYPE 

IMPLICIT 

LENGTH 

(BYTES) 

ALIGN¬ 

MENT 

LENGTH 

MODI¬ 

FIER 

RANGE 

SPECIFIED 

BY 

NUMBER 

OF CON¬ 
STANTS 

PER 

OPERAND 

RANGE 

FOR EX¬ 
PONENTS 

RANGE 

FOR 

SCALE 

TRUN¬ 

CATION/ 

PADDING 

SIDE 

C 

needed 

byte 

.1 to 

256 (1) 

characters 

one 



right 

X 

needed 

byte 

.1 to 

256 (1) 

hexadecimal 

pie 



left 

B 

needed 

byte 

256 

S;sr 

pie 



left 

F 

4 

word 

8 

decimal 

pie 

-85 to 
+75 

-187 to 
+346 

left (3) 

H 

2 

half 

• 1 to 

8 

decimal 

digits 

pie 

-85 to 
+75 

-187 

+346 

left (3) 

E 

4 

word 

.1 to 

8 

decimal 

digits 

pie 

-85 to 
+75 

0-14 

right (3) 

D 

8 

double 

word 

. 1 to 

8 

digits 

pie 

-85 to 
+75 

0-14 

right (3) 

L 

16 

double 

word 

. 1 to 

16 

decimal 

pie 

-85 to 
+75 

0-28 

right (3) 

P 

needed 

byte 

.1 to 

16 

decimal 

pie 



left 

Z 

needed 

byte 

.1 to 

16 

decimal 

pie 



left 

A 

4 

word 

.1 to 

4 (2) 

expression 

pie 



left 

Q 

4 

word 

1-4 

symbol nam¬ 
ing a DXD 
or DSECT 

pie 



left 

V 

4 

word 

3, 4 

relocatable 

pie 



left 

S 

2 

half 

2 only 

one absolute 

able ex¬ 
pression or 
two absolute 
expressions: 
exp (exp) 

pie 

; 




Y 

2 

half 

2 (2) 

any 

expression 

pie 



left 


0) In a DS assembler instruction C and X type constants can have length specification to 65535. 

(2) Bit length specification permitted with absolute expressions only. Relocatable A-type constants, 
3 or 4 bytes only; relocatable Y-type constants, 2 bytes only. 

(3) Errors will be flagged if significant bits are truncated or if the value specified cannot be con¬ 
tained in the implicit length of the constant. 
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System Assembler Macro Language Statements 


Variable Symbols j 

Attributes 

Sequence 

Symbol 

Requirement 

Symbolic 

Parameter 

Global SET Symbols 

Local SET Symbols 

System Variable Symbols 

SETA 

SETB 

SETC 

SETA 

SETB 

SETC 

&SYSNDX 

&SYSECT 

&SYSLIST 

&SYSPARM 

&SYSDATE 

&SYSTIME 

Type 

Length 

Scaling 

Integer 

Count 

Number 

MACRO 





















Prototype 

Statement 

Name 

Operand 




















GBLA 


Operand 



















GBLB 



Operand 


















GBLC 




Operand 

















LCLA 





Operand 
















LCLB 






Operand 















LCLC 







Operand 














Model 

Statement 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 
Operation 
Opera nd 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Operand 

Operand 







Name 

SETA 

2 

Operand 

Name 

Operand 

3 

Operand 

9 

Operand 

Name 

Operand 

3 

Operand 

9 

Operand 

Operand 


2 

Operand 

9 

Operand 




Operand 

Operand 

Operand 

Operand 

Operand 


SETB 

Operand^ 

__ 6 

Operand 

Name 

Operand 

_ 6 
Operand 

6 

Operand 

Name 

Operand 

6 

Operand 

Operand^ 

4 

Operand 

Operand^ 

Operand^ 



4 

Operand 

Operand** 

Operand^ 

Operand** 

Operand^ 

Operand** 


SETC 

Operand 

Operand' 7 

Operand® 

Name 

Operand 

Operand^ 

Operand® 

Name 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 







AIF 

Operand^ 

Operand^ 

Operand 

Operand^ 

6 

Operand 

Operand 

6 

Operand 

Operand^ 

4 

Operand 

Operand^ 

Operand^ 



Operand^ 

Operand** 

Operand^ 

Operand^ 

Operand** 

Operand^ 

Name 

Operand 

AGO 




















Name 

Qserand 

ACTR 

2 

Operand 

Operand 

3 

Operand 

2 

Operand 

Operand 

Operand® 

Operand^ 

Operand 


Operand^ 

2 

Operand 




Operand 

Operand 

Operand 

Operand 

Operand 


ANOP 




















Name 

MEXIT 




















Name 

MNOTE 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 

Operand 







Name 

MEND 




















Name 

OUTER 

Macro 


Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 




Name 

Operand 

Operand 

Operand 







Name 

Inner 

Macro 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Name 

Operand 

Operand 

Operand 







Name 

Assembler 

Language 

Statement 


Name 

Operation 

Operqnd 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 

Name 

Operation 

Operand 













Name 


1. Variable symbols in macro instructions are replaced'by their values before processing. 

2. Only if value is self-defining term. 

3. Converted to arithmetic +1 or +0. 

4. Only in character relations. 

5. Only in arithmetic relations. 

6. Only in arithmetic or character relations. 

7. Converted to unsigned number. 

8. Converted to character 1 or 0. 


9. Only if one to one decimal digits (from 0 through 2, 147, 483, 647). 
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System Assembler Conditional Assembly Expressions 


Expression 

Arithmetic Expressions 

Character Expressions 

Logical Expressions 

Can contain 

• Self-defining terms 

• Length, scaling, 
integer, count, and 
number attributes 

• Any combination of 
characters enclosed 
in apostrophes 

• A 0 or a 1 

• SETB symbols 


• SETA and S&TB 
symbols 

• Any variable symbol 
enclosed in 
apostrophes 

• Arithmetic 
relations 1 


• SETC symbols whose 
values are a decimal 
self-defining term 

• A concatenation of 
variable symbols and 
other characters 
enclosed in 
apostrophes 

• Character 
relations^ 

• Arithmetic 
value 


• &SYSPARM if its 
value is a decimal 
self-defining term 




• Symbolic parameters 
if the corresponding 
operand is a decimal 
self-defining term 

• A type attribute 
reference 



• &SYSLIST (n) if the 
corresponding 
operand is a decimal 
self-defining term 




• &SYSLIST(n,m) if 

the corresponding 
operand is a deci¬ 
mal self-defining 
term 




• &SYSNDX 



Operations 

are 

+, - (unary and bi¬ 
nary)/ */ and/; 
parentheses per¬ 
mitted 

concatenation, with a 
period (.) 

AND, OR, and NOT 
parentheses per¬ 
mitted 

Range 
of values 

-2 31 to + 2 3, -l 

0 through 255 charac¬ 
ters 

0 (false) or 

1 (true) 

May be 
used in 

• SETA operands 

• SETC operands 

• SETB operands 

• Arithmetic relations ^ 

2 

• Character relations 

• AIF operands 


• Subscripted SET 
symbols 




• SYSLIST subscript (s) 




• Substring notation 




• Sublist notation 




An arithmetic relation consists of two arithmetic expressions related by the 
operators GT, LT, EQ, NE, GE, or LE. 

A character relation consists of two character expressions related by the 
operator GT, LT, EQ, NE, GE, or LE. Type attribute notation and Sub¬ 
string notation may also be used in character relations. The maximum 
size of the character expressions that can be compared is 255 characters. 

If the two character expressions are of unequal size, the smaller one will 
always compare less than the larger. 
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System Assembler Attributes 


Attribute 

Notation 

Can be used with: 

Can be used only if 
type attribute is: 

Can be used in: 

Type 

T* 

Ordinary Symbols de¬ 
fined in open code; 
symbolic parameters 
inside macro defini¬ 
tions; SET symbols, 
&SYSPARM, 
&SYSDATE, 
&SYSTIME, inside 
or outside macro 
definitions; 

&SYSLIST (m), 
&SYSLIST (m, n), 
&SYSECT, 

&SYSNDX inside 
macro definitions 

(May always be used) 

1. SETC operand 
fields 

2. Character 
relations 

Length 

L' 

Ordinary Symbols 
defined in open 
code; symbolic 
parameters inside 
macro definitions; 
&SYSLIST (m), and 
&SYSLIST (n, n) in¬ 
side macro definitions 

Any letter except 
M,N,0,T and U 

Arithmetic 

expressions 

Scaling 

S' 

Ordinary Symbols 
defined in open 
code; symbolic 
parameters inside 
macro definitions; 
&SYSLIST (m), and 
&SYSLIST (m,n) in¬ 
side macro definitions 

H,F,G,D,E,L,K,P, 
and Z 

Arithmetic 

expressions 

Integer 

1' 

Ordinary Symbols de¬ 
fined in open code; 
symbolic parameters 
inside macro defini¬ 
tions; &SYSLIST (m), 
and &5YSLIST (m,n) 
inside macro de¬ 
finitions 

H,F,G,D,E,L,K,P, 
and Z 

Arithmetic 

expressions 

Count 

K' 

Symbolic parameters 
inside macro defini¬ 
tions; SET symbols; 
all system variable 
symbols 

Any letter 

Arithmetic 

expressions 

Number 

N' 

Symbolic parameters, 
&SYSLIST (m), and 
&SYSLIST (m,n) in¬ 
side macro definitions 

Any letter 

Arithmetic 

expressions 
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System Assembler Variable Symbols 


Variable 

Symbol 

Declared by: 

Initialized, 
or set to: 

Value changed 
by: 

May be used in: 

Symbolic* 

parameter 

Prototype 

statement 

Corresponding 
macro instruc¬ 
tion operand 

(Constant 

throughout 

definition) 

• Arithmetic 
expressions 
if operand 
is decimal 
self-defining 
term 

• Character 
expressions 

SETA 

LCLA or 

GBLA 

instruction 

0 

SETA 

instruction 

• Arithmetic 
expressions 

• Character 
expressions 

SETB 

LCLB or 

GBLB 

instruction 

0 

SETB 

instruction 

• Arithmetic 
expressions 

• Character 
expressions 

• Logical 
expressions 

SETC 

LCLC or 

GBLC 

instruction 

String of 
length 0 
(null) 

SETC 

instruction 

• Arithmetic 
expressions 
if value is 
decimal self¬ 
defining term 

• Character 
expressions 

&SVSNDX 1 

The assembler 

| 

Macro 

instruction 

index 

(Constant 
throughout 
definition; 
unique for 
each macro 
instruction) 

• Arithmetic 
expressions 

• Character 
expressions 

&SYSECT 1 

The assembler 

Control 
section in 
which macro 
instruction 
appears 

(Constant 
throughout 
definition; 
set by CSECT, 
DSECT, START, 
and COM) 

• Character 
expressions 
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ystem Assembler Variable Symbols (cont'd) 


Variable 

Symbol 

Declared by: 

Initialized, 
or set to: 

Value changed 
by: 

May be used in: 

&SYSLIST 1 

The assembler 

Not 

applicable 

Not 

applicable 

• N'&SYSLIST in 
arithmetic 
expressions 

&SySLIST 

&SYSLIST 

(n,M) 

The assembler 

Corresponding 
macro instruc¬ 
tion operand 

(Constant 

throughout 

definition) 

• Arithmetic 
expressions 
if operand 
is decimal 
self-defining 
term 

• Character 
expressions 

&SYSPARM 

PARM field 

User defined 
or null 

Constant 

throughout 

assembly 

• Arithmetic 
expression 
if value is 
decimal self¬ 
defining term 

• Character 
expression 

iSYSTIME | 

The assembler 

System time 

Constant 

throughout 

assembly 

• Character 
expression 

&SYSDATE 

- 

The assembler 

System date 

Constant 

throughout 

assembly 

• Character 
expression 


Can be used only in macro definitions. 
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Dynamic Address Translation-Virtual-to-Real Address Translation 


DYNAMIC ADDRESS TRANSLATION 

VIRTUAL (LOGICAL) ADDRESS FORMAT _ 

Segment Size Page Size Segment Index Page Index Byte Index 

' Bits 

64 K 2K 0-7 

1M 2K are 


SEGMENT TABLE ENTRY _ 

|PT length) 0000* | Page table address | 00*| 1 ] 

0 3 4 7 8 28 29 31 

* Normally zeros; ignored on some models. 31 (1) Segment- invalid bit. 

PAGE TABLE ENTRY (2K) _ 

j Page address | 1 | 0 |||| 13 (1) Page - invalid bit 

0 12 13 14 15 


8- 15 16- 20 21 - 31 

8- 11 12 - 20 21 - 31 


Virtual-to—Real Address Translation 


Virtual Storage Address 


Segment Table Origin 
Register (CR-1) 

-c Segment 

g> Table 

® Address 

I- 1 



* Length = Virtual Storage 
size in megabytes (0=1M) 

* If bit 13 is on (X'0004'), 

no valid mapping exists. 
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Decimal and Hexadecimal Conversion 

From hex: locate each hex digit in its corresponding column position and note 

the decimal equivalents. Add these to obtain the decimal value. 

From decimal: (1) locate the largest decimal value in the table that will fit into 
the decimal number to be converted, and (2) note its hex equivalent and hex 
column position. (3) find the decimal remainder. Repeat the process on this and 
subsequent remainders. 




Hexadecimal positions 

o left of 'heximal point' 



6 

5 

4 

3 

2 

1 

HEX = 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

0 

0 

0 

0 

0 

0 

0 

1 

1,048,576 

65,536 

4,096 

256 

16 

1 

2 

2,097,152 

131,072 

8,192 

512 

32 

2 

3 

3,145,728 

196,608 

12,288 

768 

48 

3 

4 

4,194,304 

262,144 

16,384 

1,024 

64 

4 

5 

5,242,880 

327,680 

20,480 

1,280 

80 

5 

6 

6,291,456 

393,216 

24,576 

1,536 

96 

6 

7 

7,340,032 

458,752 

28,672 

1,792 

112 

7 

8 

8,388,608 

524,288 

32,768 

2,048 

128 

8 

9 

9,437,184 

589,824 

36,864 

2,304 

144 

9 

A 

10,485,760 

655,360 

40,960 

2,560 

160 

10 

B 

11,534,336 

720,896 

45,056 

2,816 

176 

11 

C 

12,582,912 

786,432 

49,152 

3,072 

192 

12 

D 

13,631,488 

851,968 

53,248 

3,328 

208 

13 

E 

14,680,064 

917,504 

57,344 

3,584 

224 

14 

F 

15,728,640 

983,040 

61,440 

3,840 

240 

15 


Hexadecimal positions to right of 'heximaf point' 


HEX = 


DEC 


DEC 


3 

DEC 


DEC 


_5_ 

DEC 


6 

DEC 


0 


3 


9 

A 

B 

C 

D 


0 

0.0625 

0.125 

0.1875 

0.25 

0.3125 

0.375 

0.4375 

0.5 

0.5625 

0.625 

0.6875 

0.75 

0.8125 

0.875 

0.9375 


0 

0.00390625 

0.0078125 

0.01171875 

0.015625 

0.01953125 

0.0234375 

0.02734375 

0.03125 

0.03515625 

0.0390625 

0.04296875 

0.046875 

0.05078125 

0.0546875 

0.05859375 


0 

2.44140625x10* 4 
4.88281250x10' 4 
7.32421875x1 O' 4 
9.76562500x10" 4 
1.22070312x10*3 

1.46484375x10" 3 
1.70898437x10" 3 
.1.96312500x10*3 
2.19726562x10' 3 
2.44140625x10~ 3 
2.68554687x10" 3 
2.92968750x10" 3 
3.17382812x10~ 3 
3.41796875x10*3 
3.66210937x10*3 


0 

1.52587890x10*5 

3.05175781x10“ 5 
4.57763671x1 O'5 
6.10351562x10*5 
7.62989453x10" 5 
8.15527343x10'5 
1.06811523x10* 4 
1.22070312x10~ 4 
1.37329101x10" 4 
1.52587890x10" 4 
1.67846679x10* 4 
1.83105468x10* 4 
1.98364257x10" 4 
2.13623046x1 O* 4 
2.28881835x10' 4 


0 

9.53674316x 10" 7 
1.90734863x10*5 
2.86102294x10*5 
3.81469726x 1 0~® 
4.76837158x10*5 
5.72204589x10*5 
6.67572021x10*5 
7.62939453x10*6 
8.58306884x10* 6 

9.53674316x10*6 
1.04904174x10*5 
1.14440918x10*5 
1.23977661x1 O'5 
1.33514404x10*5 
1.43051147x10*5 


0 

5.96046447x 10' ® 
1.19209289x10*7 
1.78813934x10* 7 
2.38418579x10*7 
2.98023223x10"7 
3.57627868x10*7 
4.17232513x10" 7 
4.76837158x10*7 
5.36441803x10*7 
5.96046447x10*7 
6.55651092x10*7 
7.15255737x10*7 
7.74860382x10*7 
8.34465026x10*7 
8.94069671x10 "7 
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Extended Binary Coded Decimal Interchange Code (EBCDIC) 

The following 256-position table, outlined by the heavy black lines, shows the graphic characters and 
control character representations for EBCDIC. The bit-position numbers, bit patterns, hexadecimal 
representations and card hole patterns for these and other possible EBCDIC characters are also shown. 

To find the card hole patterns for most characters, partition the 256-position table into four blocks 
as follows: 


Block 1: Zone punches at top of table; 
digit punches at left 

Block 2: Zone punches at bottom of table; 
digit punches at left 

Block 3: Zone punches at top of table; 
digit punches at right 

Block 4: Zone punches at bottom of table; 
digit punches at right 

Fifteen positions in the table are exceptions to the above arrangement. These positions are indicated 
by small numbers in the upper right corners of their boxes in the table. The card hole patterns for 
these positions are given at the bottom of the table. Bit-position numbers, bit patterns, and hexa¬ 
decimal representations for these positions are found in the usual manner. 

Following are some examples of the use of the EBCDIC chart: 



Character 

Type 

Bit Pattern 

Hex 

Hole Pattern 

Zone ftjnches Digit ftjnches 

PF 

Control Character 

00 00 0100 

04 

12-9-4 

% 

Special Graphic 

01 10 1100 

6C 

0-8-4 ! 

R 

Upper Case 

11 01 1001 

D9 

11 - 9 

a 

Lower Case 

10 00 0001 

81 

12 - 0 - 1 


Control Character, 
function not yet 
assigned 

00 11 0000 

30 

12-11-0-9-8-1 

1 

_1_ 


Bit Positions 
01 23 4567 
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©@©©l 



Cord Hole Potterns 


© 12- 

-0—9—8—I 

© No 

Punches 

© 12 

-0 

© 

0-1 



© 12- 

-11-9-8-1 

© 12 


© 11 

-0 

© 

11-0-9-1 



® 'I' 

-0-9-8-1 

© 11 


© o- 

8-2 

© 

12-11 



® 12- 

■ 11-0-9-8-1 

© 12- 

11-0 

© o 






Control Character Representations 




Spe. 

:ial Graphic Characters 



ACK 

Acknowledge 

EOT 

End of Transmission 

PF 

Punch Off 

<? 

Cent Sign 

- 

Minus Sign, Hyphe 

BEL 

Bell 

ESC 

Escape 

PN 

Punch On 


Period, Decimal Point 

/ 

Slash 

BS 

Backspace 

ETB 

End of Transmission Block 

RES 

Restore 

< 

Less-than Sign 


Comma 

BYP 

Bypass 

ETX 

End of Text 

RS 

Reader Stop 

( 

Left Parenthesis 

% 

Percent 

CAN 

Cancel 

FF 

Form Feed 

SI 

Shift In 

+ 

Plus Sign 


Underscore 

CC 

Cursor Control 

FS 

Field Separator 

SM 

Set Mode 

1 

Logical OR 

> 

Greater-than Sign 

CR 

Carriage Return 

HT 

Horizontal Tab 

SMM 

Start of Manual 

& 

Ampersand 

? 

Question Mark 

CU1 

Customer Use 1 

IFS 

Interchange File Separat<- 


Message 

I 

Exclamation Point 


Colon 

CU2 

Customer Use 2 

IGS 

Interchange Group Separator 

SO 

Shift Qjt 

$ 

Dollar Sign 

# 

Number Sign 

CU3 

Customer Use 3 

IL 

Idle 

SOH 

Start of Heading 

* 

Asterisk 

@ 

At Sign 

DC1 

Device Control 1 

IRS 

Interchange Record Separator 

SOS 

Start of Significance 

' ) 

Right Parenthesis 


Prime, Apostrophe 

DC2 

Device Control 2 

IUS 

interchange Unit Separator 

SP 

Space 


Semicolon 

= 

Equal Sign 

DC4 

Device Control 4 

LC 

Lower Case 

STX 

Start of Text 

—1 

Logical NOT 

» 

Quotation Mark 

DEL 

Delete 

LF 

Line Feed 

SUB 

Substitute 




DLE 

Data Link Escape 

NAK 

Negative Acknowledge 

SYN 

Synchronous Idle 





DS 

Digit Select 

NL 

New Line 

TM 

Tape Mark 





EM 

End of Medium 

NUL 

Null 

UC 

Upper Cose 





ENQ 

Enquiry 



VT 

Vertical Tab 
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Section 2: System Information 


This section contains information that is mostly concerned with 
VS1 system internals and is useful in debugging. 


Source Publications 


Additional information about linkage registers is in OS/VS1 Supervisor 
Services and Macro Instructions, GC24-5103. 

You can obtain additional information about the devices referenced 

I from the publication on the theory of operations or operating pro¬ 
cedures. Refer to the IBM System/3 70 Bibliography, GC20-0001 
for a list of these publications. 

You can obtain additional information about completion codes 
from OS/VSMessage Library: VS1 System Codes, GC38-1003. 

I UCB Sense information for the 3850/3851 is in Mass Storage System 
(MSS) Principles of Operation, GA32-0029. 


Section 2: System Information 


2-1 



Save Area Format 



t Next higher save area ^ 

0 

4 


| f Next lower save area 

Register 14 ^ 

8 

12(C) 


| Register 15 

Contents of ^ 

registers 0-12 

16(10) 

20(14) 



Bytes 4-7: Pointer to the next higher level save area or, if this is the 

highest level save area, zeros. 

Bytes 8-11(B): Pointer to the next lower level save area or, if this is the lowest 

level save area, unused. 

Bytes 12-15(C-F): Contents of register 14 (optional) 

Bytes 16-19(10-13): Contents of register T5 (optional) 

Bytes 20-71(14-3F): Contents of registers 0 to 12 
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Trace Table 

HOW TO USE TRACE TABLE 


The tracing routine is an optional feature specified during system generation. Inclusion 
of this routine (and the size of the trace table) is effected by specifying, in the 
CTRLPROG macro, TRACE= a number greater than zero. The size of the trace table 
can be altered at IPL time by specifying a SET/SYSTEM Parameter of TRACE=n. The 
trace routine is disabled when GTF (generalized trace facility) is started and is enabled 
when GTF is stopped. 

The trace routine places entries, each of which is associated with a certain type of 
event, into a trace table. When the table is filled, the routine overlays old entries with 

new entries, beginning at the top of the table (the entry having the lowest address). 


Location X‘14' 
0 


r location X'54' points to pertinent trace table address: 
3 4 7 8 


Current 

Beginning 

End of 

Table 

of Trace 

Trace Table 

Entry 

Table 

+1 Byte 


If X'14 1 is other than X'OO', the internal trace table is disabled. (In a stand-alone 
dump, location X'14' is overlaid. If its content is desired, it should be displayed 
prior to taking the dump.) 

Trace table entries are 16 (decimal) bytes long and represent occurrences of SIO, I/O, 
SVC, Program Check, and DSP (task switch) interruptions. 

SVC Interrupt 


i i r a9 i 

I xx Ixx ixx i sic 1 00 l 


/lag | Address 

I ' I 


Reg 0 


3 4 5 

Where sic in byte 3 indicates the SVC interrupt code. 
Dispatch (Task Switch) 


11 12 


| Reg 1 

J_I_I_L_ 


I 


Address 


Ixx |x: 


lQ! i . 


| New TCB Addr 

J_I_I_L_ 


| Old TCB Addr ( 


I/O Interrupt 


O <C u. 

1/— A ^ I Address 

I DP ID 2 i | | 


Channel Status Word 

_I_l_I_I_I_L 


0 3 4 5 

Note that the device address (DDD) spans bytes 3 and 4. 


SIO Instructior 


I I 
| cc | X 


o< 

I , —^-^|Flag|CAW 
lx D| DP 103 I i 


| Channel Status Word 

_l_I_I_I_I_L_ 


0 2 3 4 

Where cc in byte 0 is the SIO condition code. 

Note that the device address (DDD) spans bytes 2 and 3. 

Program Check 


|Flag i Address 
104 i l I 


I Interrupt Code 

_J_I_I_L_ 


Translation 
Exception Addr | 

J_I_I_I_I 


External Interrupt 


|Flagj Address | Interrupt Code | TQE Address | 
I xx i 05 | | | i | | | i | | i i 
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Register Usage * How to Find 

SYSTEM/370 OPERATING SYSTEM REGISTER USAGE 


General 


Open/ 

Fetch, Link, 

Register Supervisor 

IQS 

Close/EOV 

XCTL, Load 

0 


@TCB 

Work/Par 


1 


@RQE 

Work/Par 


2 


@IOB 

DCB/ACB 

@Linkor's RB 

3 

@CVT 

@DEB 

Base 

@CVT 

4 

@TCB 

@DCB 

@Work Area 

@TCB 

5 

@RB 

Base 

@Par List 

@SVRB 

6 

@SVC 

Unit Addr 

@WTG 

@Work 

7 


@UCB 

@Curr Par 

Base 

8 


Base 

@Curr WTG 

Return 

9 


Char 

@TIOT 

Branch 

10 


Work 

@UCB 

@Linkee's RB 

11 


Work 


@Work 

12 


Work/Link 


@Linkee's Name 

13 


Log Ch Wd 



14 

@T1 Exit 

Link 



15 


Appn Base 



Note: 

Reg 2 does not always 

point to the DCB/ACB for O PEN/C LOS E/EOV. (Work 


register for DADSM and CATALOG.) 




Symbol 

Save Sequence 

User 



IORGSAV 

2-9 

IO FLIH 


PDSAV 

10-1 

IO FLIH and Ext FLIH 


PISAV 

10-9 

PC FLIH 


SVCSAV 

0-15 

SVC FLIH 


IEAEXSAV 

2-9 

EXT FLIH 


HOW TO FIND 

IORGSAV: Location 7D (address portion of I/O new PSW) contains the address of I/O 
FLIH. The two-byte ADCON of IORGSAV is located 10 bytes from the entry point. 

PDSAV IORGSAV + 20 (hex). 

PISAV: IORGSAV + 40 (hex). 

IEAEXSAV; IORGSAV. 

SVCSAV: IORGSAV + 90 (hex). 

DSPPSW: (Dispatch Resume PSW) SVCSAV + 40 (hex). 

TCBSAV: (Registers saved and restored for dispatch in TCB) Saved Reg. 10 through 
Reg. 9 in TCB + 30 (hex). 
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Linkage Register Conventions 


Linkage 

Register Conventions 

Reg 

Use 

0 

Passes parameters to the control program or the called program. 
Parameter type depends on macro type. 

1 

Passes parameters or the address of a parameter list to the control 
program, or passes parameters to the called program. Parameter 
type depends on macro type. 

2-12 

Work registers: not changed by the control program. 

13 

Passes the address of the register save area provided by the 
calling program. 

14 

Passes the return address to the calling program or the control 
program. 

15 

Contains the entry-point address, the address of a parameter list 
as the result of using certain macros, or the return code. 
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UCB Sense Information 


UCB SENSE BYTES 


The following abbreviations are used in the chart on the next few pages: 


ACC 

accelerated 

LSR 

local storage register 

ADV 

advance 

LWR 

loop write to read 

ALU 

arithmetic logic unit 



AMT 

amount 

MAL 

malfunction 

ATT 

attention 

MP 

multiprocessor 



MTE 

multi-track error 

BK 

back 



BKWD 

backward 

NON-XST 

non-existent 

BLK 

block 



BOC 

branch on condition 

OP 

operation 

BR 

branch 

OPRATNL 

operational 

BUF 

buffer 

OPR 

operator 

CARR 

carriage 

PRTY 

parity 

CH 

channel 

PCU 

primary control unit 

CNT 

count 

PE 

phase encoded 

CNTR 

counter 

PERM 

permanent 

CNTRL 

control 

PLB 

print line buffer 

CNTRLR 

controller 

POSN 

position 

CNVT 

convert 

POSNG 

positioning 

COMP 

compare 

PROT 

protection 

COMPT 

compatible 



CORR 

correction 

RCP 

recognition and control processor 

CRC 

cyclic redundancy check 

RCVY 

recovery 

CU 

control unit 

RD 

read 



REC 

record 

DEN 

density 

REG 

register 

DESER 

deserialize 

REQ 

required 

DET 

detected 

REQTD 

requested 

DIAG 

diagnostic 

RESVD 

reserved 

DISC 

disconnect 

ROS 

read-only storage 

DOC 

document 

RPQ 

request for price quotation 



RPS 

rotational position sensing 

EC 

engineering change 

RWD 

rewind 

ENG 

engineering 

RWDNG 

rewinding 

ENV 

envelope; environmental 

R/W 

read/write 

EOD 

end of data 



EOT 

end of tape 

SCU 

secondary control unit 

EQ 

equipment 

SEL 

selected 

ERR 

error 

SELCTN 

selection 



SEP 

separator 

FCB 

forms control buffer 

SER 

serialize 

FRU 

field replaceable unit 

SPUR 

spurious 

FUNC 

function 

STKD 

stacked 

FUT 

future 

STKR 

stacker 



SUP 

suppression 

GEN 

generation 

SW 

switch 



SYNC 

synchronous 

HDWR 

hardware 

TGR 

trigger 

IBG 

interblock gap 

Tl 

tape indicate 

1C 

instruction counter 

TM 

tape mask 

ID 

identification 

TRK 

track 

INSTR 

instruction 

TRNG 

turning 

INT 

intervention 

TU 

tape unit 

INTRPT 

interrupt 



INTF 

interface 

UCSAR 

universal character set address register 

INVLD 

invalid 

UCSB 

universal character set buffer 

KYBD 

keyboard 

VEL 

velocity 



VRC 

vertical redundancy check 

LRC 

longitudinal redundancy 
check 

WRT 

write 

LRCR 

longitudinal redundancy 
check register 

WTM 

write tape mark 
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UCB Sense Information (cont'd) 


BYTE 0 
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UCB Sense Information (cont'd) 


BYTE 0 


BIT 

. 0 

1 

2 

3 

4 

5 

6 

7 

DEVICE 









3340 

CMD 

INT 

BUS 

EQ 

DATA 

OVER- 

TRK 

SEEK 


REJ 

REQ 

OUT 

CHK 

CHK 

RUN 

COND 

CHK 

CHK 

3410, 3411 

CMD 

INT 

BUS 

EQ 

DATA 

OVER- 

WORD 



REJ 

REQ 

OUT 

CHK 

CHK 

RUN 

COUNT 

ZERO 


3420, 3803 

CMD 

INT 

BUS 

EQ 

DATA 

OVER- 

WORD 

DATA 


REJ 

REQ 

OUT 

CHK 

CHK 

RUN 

COUNT 

CNVT 








ZERO 

CHK 

3505, 3525 

CMD 

INT 

BUS 

EQ 

DATA 


ABNRML 

PERM 


REJ 

REQ 

OUT 

CHK 

CHK 


FORMAT 

ERR 








RESET 

(BYPASS 

KEY) 

3540 

CMD 

INT 

BUS 

EQ 

DATA 





REJ 

REQ 

OUT 

CHK 

CHK 







CHK 






3800 

CMD 

INT 

BUS 

! EQ 

DATA 


LOAD 

CH 9 


REJ 

REQ 

OUT 

CHK 

CHK 


CHK 


3886 

CMD 

INT 

BUS 

EQ 



NON 

RCP 


REJ 

REQ 

OUT 

CHK 



1 NIT 

ERR 

3890 

CMD 

INT 

BUS 

EQ 

DATA 


NON 

RUN¬ 


REJ 

REQ 

OUT 

CHK 

CHK 


1 NIT 

NING 

CHANNEL- 


INT 

BUFFER 

EQ 

SELCTN 

CTRL 

STATUS 

INTF 

TO- 


REQ 

DATA 

CHK 

CHK 

SEQ 

GEN 

DISC 

CHANNEL 

ADAPTER 



CHK 



CHK 

CHK 



BYTE 1 


-- 

BIT 

0 

1 

2 

3 

4 

5 

6 

7 

DEVICE^s^ 









1287 

TAPE 

LATE 

NO 


INVLD 





MODE 

STKR 

DOC 


OP 






SELECT 

FOUND 






1288 


END 

NO 


INVLD 






OF 

DOC 


OP 






PAGE 

FOUND 






1419/1275 

FLD 6 

FLD 7 

DOC 

AMT 

PRO 

ACCT# 

TRANSIT 

SER# 

SCU 

VALID 

VALID 

UNDER 

FLD 

CTL FLD 

FLD 

FLD 

FLD 




W HD 

VALID 

VALID 

VALID 

VALID 

VALID 

2250 

LIGHT 

END 

CHAR 







PEN 

ORDER 

MODE 







DETECT 

SEQ 







2260 









2305 

PERM 

INVLD 

END 


NO 

FILE 


OPER¬ 


ERR 

TRK 

OF 


REC 

PROT 


ATION 



FORMAT 

CYL 


FOUND 



INC 

2314, 2319 

DATA 

TRK 

END 

INVLD 

NO 

FILE 

SERVICE 

OVER¬ 


CHK IN 

OVER¬ 

OF 

SEQ 

REC 

PROT 

OVER¬ 

FLOW 


COUNT 

FLOW 

CYL 


FOUND 


RUN 

INL 
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UCB Sense Information (cont'd) 


BYTE I 


BIT 

0 

1 

2 

3 

4 

5 

6 

7 

DEVICt"-^ 









2400 

NOISE 

OO-NON 

-XST TU 

7 TRK 

AT 

WRT 

FILE 

TAPE 

series 


01-NOT READY 


LOAD 

STATUS 

PROT 

IND 



10-RDY and NO 


POINT 






RWD 









11-RDY and 








RWDING 







3203 

CMD 

PRINT 


LINE 

FORMS 

CMD 

CNTRLR 


Model 4 

RETRY 

CHK 


POSN 

CHK 

SUP 

CHK 


3211 

CMD 

PRINT 

PRI NT 

LINE 

FORMS 

CMD 

ME- 



RETRY 

CHK 

QUALITY 

POSN 

CHK 

SUP 

CHAN- 

ICAL 

MOTION 


3330/3333, 

PERM 

INVLD 

END 

STATE 

NO 

FILE 

WRITE 

OPER- 

Models 

ERR 

TRK 

OF 

VAR 

REC 

PROT 

INHIBIT 

ATI ON 

1 and 11 


FORMAT 

CYL 

PRES 

FOUND 



INL 

3340, 3350 

PERM 

INVLD 

END 


NO 

FILE 

WRITE 

OPER- 


ERR 

TRK 

OF 


REC 

PROT 

INHIBIT 

ATI ON 



FORMAT 

CYL 


FOUND 



INC 

3410, 3411 

NOISE 

TU 

TU 


AT 

WRT 

FILE 

NOT 



STAT 

STAT 


LOAD 

STAT 

PROT 

CAPA¬ 



A 

B 


POINT 



BLE 

3420, 3803 

NOISE 

TU 

TU 

7 TRK 

AT 

WRT 

FILE 

NOT 



STAT 

STAT 


LOAD 

STAT 

PROT 

CAPA¬ 



A 

B 


POINT 



BLE 

3505, 3525 

PERM 

AUTO 

MOTION 

RETRY 






ERR 

RETRY 

MAL 

AFTER 
INT REQ 
COMP 





3540 

PERM 

AUTO 

MOTION 

RETRY 

SPECIAL 





ERR 

RETRY 

MAL 

AFTER 
INT REQ 

RECORD 

TRANS¬ 

FERRED 








COMP 




3800 

BIT MEANINGS DEPENDENT UPON BYTE 0. SEE TABLE OF "3800 SENSE BYTES 1 


0-2". 








3886 


MARK 

INVLD 


INCOMP 


NON 

OUT- 



CHECK 

FORMAT 


SCAN 


RECOV¬ 

ERY 

BOARD 


BYTE 2 


BIT 

DEVICt\^^ 

0 

1 

2 

3 

4 

5 

6 

7 

2250 


BUFFER ADDRESS REGISTER 

BIT 15 | BIT 14 | BIT 13 | BIT 12 | BIT 11 | BIT 10 BIT 9 

2260 


BIT 15 

BUFFER ADDRESS REGISTER 

BIT 14 1 BIT 13' 1 BIT 12 1 BIT 11 1 BIT 10 1 BIT 9 

2305 

BUF 

LOG 

FULL 

COR¬ 

RECT¬ 

ABLE 



2314, 2319 

UNSAFE 


SER/ 

DESER 

TAG 

LINE 

ALU 

CHK 

UNSEL 

STATUS 


2400 

BITS 0-7 INDICATE A TRACK IS IN ERROR 

6 and 7 INDICATE 
NO ERROR OR 

MULTI-ERROR 

3203 

Model 4 

CARR 

FAILED 

TO 

MOVE 

CARR 

MOTION 

CHK 




FORMS 

CHK 


TRAIN 

VEL 

3211 

CARR 

FAILED 

TO 

MOVE 

CARR 

SEQ 

CARR 

STOP 

PLATEN 

FAILED 

PLATEN 

FAILED 

FORMS 

JAM 

RIBBON 

MOTION 

TRAIN 

OVER¬ 

LOAD 
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UCB Sense Information (cont'd) 


BYTE 2 


BIT 

DEVICE 

0 

1 

2 

3 

r -1 

5 

6 

7 

3330/3333 


COR- 


ENV 

COM- 




Models 1 


RECT- 


DATA 

PATI- 




and 11; 


ABLE 


PRESENT 

BILITY 




3350 





MODE 




3340 

RPS 

COR- 


ENV 

COM- 





FEA- 

RECT- 


DATA 

PATI- 





TURE 

ABLE 


PRESENT 

BILITY 


MODULE 

MODULE 






MODE 


SIZE 

SIZE 

3410, 3411 

TRACK IN ERROR BITS 

3420, 3803 

TRACK IN ERROR BITS 

3505, 3525 

USED FOR DIAGNOSTIC PURPOSES ONLY 

3540 

USED FOR DIAGNOSTIC PURPOSES ONLY 

3800 



BIT MEANINGS DEPENDENT UPON BYTE 0. 





SEE TABLE OF '3800 SENSE BYTES 0-2 1 . 




BYTE 3 


BIT 

0 

1 

2 

3 

4 

5 

6 

7 

DEVICE 









2250, 2260 




BUFFER ADDRESS REGISTER 




Bit 8 


Bit 6 

«,5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

2305 

RESTART COMMAND j 

2314 

BUSY 

ON 

UNSAFE 

WR 

PACK 

END 

M-MODE 

SEEK 



LINE 


CUR 

CHNG 

OF 

SE 

INC 





GFN 


CYL 



2319 

LRC 

LRC 

LRC 

LRC 






Bit 0 

Bit 1 

Bit 2 

Bit 3 





2400 

R/W 

LRCR 

SKEW 

CRC 

SKEW 

0-1600 

BKWD 

COM- 


VRC 




REQ 

1-800 

STATUS 

PARE 

3203 

UCS 

PLB 


COIL 

HAM- 


SYNC 


Model 4 

PARITY 

PARITY 


PROT 

MER 


CHK 



CHK 

CHK 


CHK 

FIRE 




3211 

USCB 

PLB 

FCB 

COIL 

HAM- 

FIELD 

USCAR 

SEP 


PARITY 

PARITY 

PARITY 

PROT 

MER 

ENG 

SYNC 

SYNC 





CHK 

FIRE 


CHK 

CHK 

3330/3333 



RESTART COMMAND 




Models 









1 and 11 









3340, 3350 

RESTART COMMAND j 

3410, 3411 

10V 

MTR/ 

SKEW 

END 

ENV 

1600 

BKWD 



VRC 

LRCR 


DATA 

CHK 

BPI 







CHK/CRC 


INTU 



3420, 3803 

R/W 

MTR/ 

SKEW 

END 

VRC/ 

PHASE 

BKWD 

COM- 


VRC 

LRC 


DATA 

ENV 

EN- 


PARE 





CHK/CRC 

CHK 

CODED 



3505, 3525 

USED FOR DIAGNOSTIC PURPOSES ONLY 

3540 

TRACK IN ERROR 

3800 

PRINT- 

PAGE 

BACK 

PAPER 

SYS- 

PHOTO 




ER 

BUFFER 

DATA 

THREAD- 

TEM 

CON- 




RDY 

EMPTY 

CHK 

ED FOR 

RE- 

DUCTOR 







SHEET 

START 

AD- 







STACKER 

REQ 

VANCE 

EN¬ 

ABLED 
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UCB Sense Information (cont'd) 


BYTE 4 


'"'\BIT 

0 

1 

2 


4 

5 

6 

7 

device"\ 









2250, 2260 









2305 









2314 





PHYSICAL 









DRIVE 


ID 

2319 

SEQ 

SEQ 

SEQ 

SEQ 

SEQ 

SEQ 

SEQ 

SEQ 

IND0 

IND 1 

IND 2 

IND 3 

IND 4 

IND 5 

IND 6 

IND 7 


ECHO 

RES 

READ 

WRITE 

DELAY 

SEQ 

SEQ 

SEQ 

2400 Series 

ERR 

TAPE 

CLOCK 

CLOCK 

CNTR 

IND C 

IND B 

IND A 



UNIT 

ERR 

ERR 





3203 

DEVICE 

HI-SPEED 




PRINTER 

CNTRLR 

STATIS- 

Model 4 

ID 

FAULT 



_ 

SUBSYS¬ 
TEM CHK 

CHK 

TICS 

3211 


3330/3333 









Models 



PHYSICAL DRIVE IDENTIFICATION 



1 and 11 









3340, 3350 

PHYSICAL DRIVE IDENTIFICATION j 


TU 

REJ 




DIAG 

TU 


3410, 3411 

POSN 

TAPE 

EOT 



TRK 

CHK 

SPARE 


CHK 

UNIT 




CHK 




ALU 

REJ 

TAPE 

WRITE 

MICRO- 

LWR 

ERROR 

TAPE 

RES 

RPQ 

3420, 3803 

HDWR 

TAPE 

INDI- 

TRGGR 

PGM DET 

UNIT 


ERROR 

UNIT 

CATE 

VRC 

ERROR 

CHK 

3540 

BINARY ZERO 

3800 

DIAGNOSTIC STATUS CODES 


BYTE 5 


\ BIT 

DEVICE\ 

0 1 

2 

3 

* 

5 

6 

7 

2250, 2260 


2305 

CYLINDER ADDRESS 

2314 

COMMAND IN PROGRESS WHEN OVERFLOW INCOMPLETE OCCURS 

2319 


2400 Series 

COMMAND IN PROGRESS WHEN OVERFLOW INCOMPLETE OCCURS 

OR ZERO 

3203 

Model 4 

RIBBON 

REVER¬ 

SAL 

RESTORE 

KEY 

RESET 

LINE 

COUNTER 

SPACE 

KEY 

IDLE 

STATUS 

START 

KEY 

STOP 

KEY 

48 

CHAR 

SET 

3211 


3330/3333 

Models 

1 and 11 

CYLINDER ADDRESS 

3340, 3350 

CYLINDER ADDRESS 

3410, 3411 

NEW 

SUB¬ 

SYSTEM 

NEW 

SUB¬ 

SYSTEM 

WRT 

TM 

CHK 

PE ID 
BURST 

PRTY 

COMP 

TACH 

CHK 

FALSE 

END 

MARK 

RPQ 

3420, 3803 

NEW 

SUB¬ 

SYSTEM 

NEW 

SUB¬ 

SYSTEM 

WRT 

TM 

CHK 

PE ID 
BURST 

START 

READ 

CHK 

PARTIAL 

RECORD 

XCESSVE 
PSTAMBL 
OR TM 

RES 

RPQ 

3540 

SECTOR IN ERROR 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA 
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UCB Sense Information (cont'd) 


BYTE 6 


X BIT 
DEVICE''^ 

0 

1 

2 

3 

4 

5 

6 

3 

2305 

CURRENT HEAD ADDRESS j 

3203 

Model 4 

INVAL 

FUNC 

REQ 





INVAL 

I/O 

CMD 

CNTRLR 

BUS-OUT 

PARITY 

HALT 

3330/3333 
Model 1 

REVERSE 

CYL 

HIGH 

DIFFER 

HIGH 

HEAD ADDRESS 

3330/3333 
Model 11; 
3350 


CYL 

512 

CYL 

256 

HEAD ADDRESS 

3340 

RE¬ 

VERSE 

CYL 

HIGH 

DIFFER 

HIGH 

HEAD ADDRESS 

3410, 3411 


SHRT 

GAP 

DUAL 

DENSITY 

ALT 

DENSITY 

TAPE UNIT MODEL 

3420, 3803 

7 TRK 

WRT 

DUAL 

0-1600 
1-6250 
for Mods 

4, 6, 8; 
800 BPI 
for Mods 

3, 5, 7 

TAPE UNIT MODEL DEFINED 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA j 


BYTE 7 


BIT 

DEVICE\^ 

0 

1 

2 

3 

4 

5 

6 

7 

2305 

ENCODED ERROR MESSAGE j 

3203 

Model 4 

PRINT 

CHK 

CAB 2 
PARITY 

DUCT 

PARITY 

INTRPT 

OVERRUN 

SPUR 

INTRPT 

MISSINC 

BASIC 

STATUS 

BIT 

FMR 

PARITY 

TIME 

OUT 

3330/3333 
Model 1 

FORMAT OF REMAINING 
SENSE BYTES (8-23) 

ENCODED ERROR 

MESSAGE 

3330/3333 
Model 11 

FORMAT OF REMAINING 
SENSE BYTES (8-23) 

ENCODED ERROR 

MESSAGE 

3340, 3350 

FORMAT OF REMAINING 
SENSE BYTES (8-23) 

ENCODED ERROR 

MESSAGE 

3410, 3411 

LAMP 

CHK 

LEFT 

COL 

CHK 

RT 

COL 

CHK 

RESET 

KEY 

DATA 

SEC 

ERASE 


3420, 3803 

LAMP 

FAIL 

TAPE 

BOTTOM 

LEFT 

TAPE 

BOTTOM 

RIGHT 

RESET 

KEY 

DATA 

SCRTY 

ERASE 

ERASE 

HEAD 

FAILED 

AIR 

BRNG 

PRESS 

LOAD 

FAIL 

3800 DIAGNOSTIC ERROR-DEPENDENT DATA j 


BYTE 8 


BIT 

0 

1 

2 

3 

4 

5 

6 

7 

device\. 









3203 

FAILURE 

ACC 

MISSING 

EXTRA 

STEP 

STEP 


CARR 

Model 4 

TO MOVE 

TOO 

FB 

FB 

CHK 1 

CHK 2 


CNTRL 


CARR 

SLOW 

PULSE 

PULSE 




STOP 



WRT 


END 

RD BK 

START 


MAR- 

3410, 3411 


FEED 


VEL 

DATA 

VEL 


GINAL 


THRU 


CHK 

NOT 

CHK 


VELOC 



CHK 



DET 





IRG 

FEED 

SDR 

EARLY 

EARLY 

SLOW 

SLOW 

VELO 

3240, 3803 

DROP 

THRU 

CNTR 

BGN RD 

END RD 

BGN RD 

END RD 

RETRY/ 


IN WRT 

CHK 


BK CHK 

BK CHK 

BK CHK 

BK CHK 

RESTRT 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA j 
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UCB Sense Information (cont'd) 


BYTE 9 


BIT 





— 




DEVICE^\ 

0 

1 

2 

3 

4 

5 

6 

7 

3203 

FORMS 

OUT 

STKR 

FRONT 

ADAPTER 

PRINTER 

TRAIN 

SYNC 

Model 4 

CHK 

OF 

FULL/ 

INTER- 

COIL 

INDEP 

VEL 

CHK 0 



FORMS 

JAM 

LOCK 

PROT 

COIL 







OPEN 


PROT 




JDR 

VE 

SDR COUNTERS 




TAPE 

3420, 3803 

CNTR 

CHNG 






CTL 



ON WRT 






RESD 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA j 


BYTE 10 


^\BIT 

0 

1 

2 

3 

4 

5 

6 

7 

DEVICE\ 










FUNC 

MISSING 

HAMMER 

HAMMER 

HAMMER 

HAMMER 

SYNC 

SYNC 

3203 

GO 

NPL 

BAR 

BAR 

BAR 

BAR 

CHK 1 

CHK 2 

Model 4 

RES 

DEV 

SIGNALS 

SIGNALS 

SLOW 

EXCESS 





RDY 

OFF 

ON 


BOUNCE 




CMD 


CNTRL 

NOBLK 

WTM 

TACH 


VELO¬ 

3420, 3803 

STATUS 


STATUS 

ON RCD 

NOT 

START 


CITY 


REJ 


REJ 

RDBKCHK 

DETECT 

FAIL 


CHK 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA j 


BYTE 11 


BIT 

DEVICl\. 

0 

1 

2 

3 

4 

5 

6 

7 

3203 

Model 4 

ADAPTER 

RDY 

CARR 

OP 

PRINT 

OP 

INTRPT 

EXPECT¬ 

ED 

TIME 

OUT 

EXPECT¬ 

ED 

CHK 

STOP 

COND 

TRAIN 

DRIVE 

OFF 

FEED 

ROLL 

IDLE 

3420, 3803 

B BUS 
PARITY 
ALU 1 


LO ROS/ 
LO 1C 
PARITY 

HI 1C 

BR COND 
/HI ROS 

MCPGM 

DET 

HDWR 

ERR 

D BUS 
PARITY 
ALU 1 


BR 

COND 
ALU 1 

3800 

DIAGNOSTIC ERROR-DEPENDENT DATA j 
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UCB Sense Information (cont'd) 


Byte 12 


\ BIT 

0 

1 

2 

3 

4 

5 

6 

7 

deviceN. 










CAC 

ERROR 

GO NOT 

ATT 

CHK 

CARR 

FUNC 

HIGH 

3203 

BUSY 

PENDING 

RDY 

PENDING 

STOP 

CTRL 

REQ 

SPEED 

Model 4 





REQ 

STOP 

STKD 

CARR 

3420, 

B BUS 


LO ROS/ 

HI 1C 

MCPGM 

D BUS 


BR 

3803 

PRTY 


LO 1C 

BR/HI 

DETECT 

PARITY 


COND 


ALU 2 


ON BR 

ROS REG 

HDWR ERR 

ALU 2 


ALU 2 

3800 

MODULO 256 TRANSFER 2 PPI COUNT j 


Byte 13 


BIT 

DEVICTV 

0 

1 

2 

. 

3 

4 

5 

6 

7 

3420, 

3803 

CONTROL 

UNIT 

DENSITY 

CONTROL UNIT UNIQUE 

id-high order 

3800 

MODULO 256 FUSER 8-16 PPI COUNT j 


Byte 14 


BIT 

DEVICEX^ 

— 

0 

1 

2 

3 

4 

5 

6 

7 

3203 

Model 4 

PRINT 

COM¬ 

PLETE 

NOT 

READY 

TIME 

STATUS 

INTRPT 

ADAPTER 

ERROR 

OPRATNL 

MACH 

CHK 

INTRPT 

ENABLED 

INTRPT 

REQTD 

3420, 

3803 

CONTROL UNIT UNIQUE 

ID - LOW ORDER 

3800 

FUSER PAGE COUNT 


Byte 15 


\ BIT 

DEVICE^. 

0 

1 

2 

3 

4 

5 

6 

7 

3420, 

3803 

TAPE UNIT UNIQUE ID - 
HIGH ORDER 

3800 

FUSER PAGE COUNT 
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UCB Sense Information (cont'd) 

Byte 16 


BIT 

DEVICE^. 

0 

1 

2 

3 

4 

5 

6 

7 

3203 

Model 4 

ENABLE 

COMP 

FIRED 

HANDLD 

DATA 

CHK 

HAMMER 

FAILURE 

HAMMER 

MISFIRE 

PLB 

PARITY 

CHK 

3420, 

3803 

TAPE UNIT UNIQUE ID - 
LOW ORDER 

3800 

PAPER COUNT 


Byte 17 


BIT 

DEVICE''^ 

0 

1 

2 

3 

4 

5 

6 

7 

3420, 

3803 

2 

CHAN 

SWITCH 

CONTROL UNIT 

WITH DEVICE 

SWITCH FEATURES 

EC LEVEL OF 

TAPE CONTROL UNIT 

3800 

PAPER COUNT | 


Byte 18 



0 

1 

2 

3 

4 

5 

6 

7 

3420, 

3803 

POWR 

CHK/ 

AIRFLO 


EC LEVEL OF 

TAPE UNIT 

3800 

SERIAL NUMBER | 


Byte 19 


HD 

0 

1 

2 

3 

4 

5 

6 

7 

DEVICE\^ 









3203 


RESTORE 

RESET 

SPACE 


START/ 


NEAR 

Model 4 


KEY 

LINE 

KEY 


SINGLE 


END OF 




CNTR 



CYCLE 

KEY 


FORM 

3420, 


PRIMED FOR DEVICE END 





3803 

TU 7 

TU 6 

TU 5 

TU 4 

| TU 3 

TU 2 

TU 1 

TU 0 

3800 

SERIAL NUMBER j 
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UCB Sense Information (cont'd) 


Byte 20 


BIT 

DEVICE-^ 

0 

1 

2 

3 

4 

5 

6 

7 

3420, 

3803 

PRIMED FOR DEVICE END 

TU F | TU E | TU D | TU C | TU B | TU A | TU 9 | TU 8 

3800 

PAGE BACKUP COUNT 


Byte 21 


\ BIT 









DEVICE-v^ 

0 

1 

2 

3 

4 

5 

6 

7 

3420, 

LOAD 

LEFT 

RIGHT 

TAPE 

REELS 

LOAD 

LOAD 

LOAD 

3803 

BUTTON 

REEL 

REEL 

PRESENT 

LOADED 

REWIND 

COM¬ 

CHK 


DEPRESS 

TRNG 

TRNG 




PLETE 


3800 

PAGE BACKUP COUNT 


Byte 22 


\ BIT 
DEVICE\^ 

0 

1 

2 

3 

4 

5 

6 

7 

3420, 

3803 

FRU IDENTIFIERS FOR ALU 1 

3800 

PHOTO CONDUCTOR GAP LOCATION OR LOAD CHECK OFFSET 


Byte 23 


BIT 

DEVICE\^ 

0 

1 | 2 

3 

4 

5 

6 

> 

3420, 

3803 

FRU IDENTIFIERS FOR ALU 2 

3800 

PHOTO CONDUCTOR GAP LOCATION OR LOAD CHECK OFFSET 
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UCB Sense Information (cont'd) 


3800_ByteO 


Bit 


0 

1 

2 

3 

4 

5 

6 

7 



CMD 

REJ 

INT 

REQ 

BUS 

OUT 

EQ 

CHK 

DATA 

CHK 


LOAD 

CHK 

CH9 


Bit 

0 

INVLD 

CMD 

NOT 

RDY 

CMD 

CODE 

HDWR 

ERR 

UNPRNT 

CHAR 


— 

INCORR 

LENGTH 



1 


OP 

CHK 

DATA 

BYTE 

PERM 

ERR 

(RESVD) 


INCORR 

Multiple 
of 6 or 8 
Lines 



2 


TONER 
COLLECT¬ 
OR FULL 


ERR LOG 
FULL 

NO 

XLATE 

TABLE 


FCB 

1/2 INCH 

ERR 



3 


TONER 

EMPTY 


CANCEL 

KEY 

NO FCB 
CH CODE 


INVLD 

FCB CH 
CODES 


Byte 

1 

4 


DEVELOP¬ 
ER RE¬ 
PLACE¬ 
MENT REQ 



MULTIPLE 

CHARS 


FCB VS 

FORM 

LENGTH 

ERR 



5 


END OF 
FORMS 

. 





WCGM 

NOT 

LOADED 



6 


OUTPUT 

FULL 





UNASSIGN¬ 
ED GRAPHIC 
CHAR 



7 










0 


FORMS 

HOLDER 

INTER¬ 

LOCK 





INVLD 
WCGM ID 



1 


TRANS¬ 
FER CHK 





NO ID FOR 
WCGM 00 



2 


FUSER 

CHK 





INVLD 

COPY 

MODIFY 

SEQ 


Byte 

2 

3 


CFS 

CHK 





INVLD 

FORMS 

OVERLAY 

SEQ 



4 


PROCESS 

CHK 





INVLD 

GRAPHIC 

MODIFY 

SEQ 



! 

5 


BURSTER 

TRIMMER 

STACKER 

CHK 





WCGM 

DATA 

PAR ERR 

J 



6 


To determine the meaning of bits in bytes 1 and 2, 


7 


LINE 

inspect byte 0. 

Find the column in the table 




OVER- 

corresponding to the bit in byte 0. The meaning 1 




RUN 

of bits in bytes 1 and 2 will be found 

n that 




same column. 
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Device Statistics Table 


The device statistics table contains counters that are used to keep track of the number 
of times error conditions have occurred on I/O devices. It is used by IBM-supplied 
error routines and the statistical data records (SDR) of SER. This table is created at 
system generation and resides in the fixed nucleus. It contains a ten byte control 
field, used in locating entries to be updated, at the beginning of the table and, 
with the exceptions noted below, one ten byte entry for each I/O device in a 
system. The devices UCB points to the entry. The exceptions are: 

• 2305 Models 1 and 2 - one common ten-byte entry is pointed to by each UCB 
in a bank. 

• 2314 - A 2314 is considered to be nine devices. Therefore, one common 90- 
byte entry is pointed to by each 2314 UCB in a bank. 

• 2400 tape drives - the entry is 20 bytes if and only if DDR (dynamic device 
reconfiguration) and a 3400 tape drive are in the system. 

• 3330 - one ten-byte dummy entry is pointed to by all 3330 UCBs in a bank. 

• 3340 - One ten-byte dummy entry is pointed to by all UCBs in a bank. 

• 3410, 3420 tape drives - entry is 20 bytes long; bit 3 in UCBFL5 is on in its 
UCB. 

• 3886 entry is 30 bytes long; bit 3 in UCBFL5 is on in its UCB. 

The UCB pointers in the control field are used to determine the section of the table 
in which the desired entry is located. If the desired entry is in other than section 
1, a multiple of 256 (256 for section 2, 512 for section 3, etc.) is added to the 
STATAB index in the UCB. This is then multiplied by ten and added to the starting 
address of the statistics table to give the address of the proper entry. When the 
desired entry is in section 1, the STATAB index itself is multiplied by ten and added 
to the address of the statistics table. For the 2314, the low-order four bits of the 
fifth sense byte are also added to the STATAB index to get the correct entry. 


f UCB 256 1} UCB 512 If UCB 


Entry for UCB 1 


Entry for UCB 2 


Entry for UCB 3 


Entry for UCBj? 


Control 

Field 


Device Statistics Table Entries 
2314 Devices 


0(0) 1 

Temporary Temporary 
Read Write 

Failures Failures 

'_1_ 

10) 

Bus-Out 

Check 

2(2) 

Equipment 

Check 

Overrun 

3(3) 

Track 

Condition 

Check 

Seek 

Check 

4(4) 

Unsafe 

_1 

L _ . 

5(5) 

Serializer/ 

Deserializer 

_ 1 

Control 

Unit 

Tag Line 

1 _._ 

6(6) 

Arithmetic 

Logical 

Unit 

1 _ 

7( 7) 

Missing 

Address 

Marker 

1 _ 

8(8) 

Work Area 

9(9) 

Work Area 
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Device Statistics Table (cont'd) 


Unit Record Devices 


0(0) | 

Temporary ITemporary 
Read Write 

Failures Failures 

KD | 

Bus-Out 

Check 

2(2) . I 

Equipment | Overrun 
Check 

3(3) _ 1 

Device | Device 

Dependent Dependent 
(Sense 1 (Sense 

Byte 6) | Byte 7) 

4(4) 

5(5) 

6(6) 

7(7) 

8(8) 

Work Area 

9(9) 

Work Area 



2400 Series and 3400 Magnetic Tape Devices 


0(0) | 

Temporary 'Temporary 
Read Write 

Failures Failures 

KD 

Intervention 

Required 

Bus-Out 

Check 

2(2) 

Equipment 

Check 

Overrun 

3(3) 

Word 

Count 

Zero 

Data 

Converter 

Check 

4(4) 

Read/ Longitudi- 

Write Vert, nal Redun- 
Red.Check dancy 
ICheck 

5(5) 

Skew 

Cyclic 
iRedundan- 
cy Check 

6(6) 

Skew Reg. 
Vert. Red. 
Check 

Noise 

7(7) 

Read 

Opposite 

Recovery 

Channel 

Data 

Check 

8(8) 

9(9) 






Work Area 

Work Area 






Devices Attached to 2820 Control Units 


0(0) I 

Temporary 'Temporary 
Read Write 

Failures | Failures 

KD ! 

1 Bus-Out 
^ Check 

2(2) 

Equipment 

Check 


3(3) ! i 

Track | 

Condition 

Check 1 

4(4) 

Track Overrun 

5(5) 

6(6) 

No 

Record 

Found 


7(7) 

8(8) 

Work Area 

9(9) 

Work Area 



Devices Attached to 2841 Control Units 


0(0) 

Temporary 

Read 

Failures 

Temporary 

Write 

Failures 

KD j 

Bus-Out 

Check 

2(2) 1 

Equipment Overrun 
Check ' 

3(3) 

Track 
Condi tior 
Check 

Seek 

Check 

4(4) 

Unsafe 

1 

5(5) 

Serializer/ Control 
Deserial- . Unit Tag 
izer I Line 

6(6) | 

Arithmetic 

Logical | 

Unit 

7(7) 

Missing 

Address 

Marker 


8(8) 


9(9) 




Work Area 

Work Area 
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Device Statistics Table (cont'd) 


3410 Series Magnetic Tape Devices 


0(0) 

KD 

Noise 

1,0 


3(3) 

MTE/LRCR 

3,1 

4(4) 



5(5) 


6(6) 


7(7) 



EDC/CRC 


Envelope Check 

Overrun 

Skew 

Spare 

Spare 


3,3 



3,4 

0,5 

3,2 

3,7 

4,3 

18(8) 



9(9) 


10(A) 


11(B) 


PE 

Mask Bit 


Track in 

irror Mask 

Write TM 

Parity 

Tach 

False 


Expansion 


Bits 2, 0 

-7 

Check 

Compare 

Check 

End 

jCH 









Mark 

m 

_LL 

1 1 

P 

01 1 | 2 13 

4 M 7 

5,2 

5,4 

5,5 

5,6 

\ 12(C) 



13(D) 


14(E) 


15(F) 




Teed- 



End 

No Read- 

Start 




Spare 

Through 


Spare 

Velocity 

back Data 

Velocity 

Spare 

Spare 



Check 



Check 

' 

1 Check 




8,0 

8,1 


8,2 

8,3 

8,4 

| 8,5 

8,6 

8,7 

! 16(10) 



17(11) 


18(12) 


19(13) 


1 









Tape Unit 

Not Used 

Not Used 

Not Used 

Not Used 

Backward 

Bus-Out 

Position- 

■ 










■ 

9,0 

9,1 


9,2 ! 

9,3 

3,6 

Km 

mam 


3420 Series Magnetic Tape Devices 


0(0) 


KD 


2(2) 


3(3) 

1 




Noise 

Read Write VRC 

MTE/LRCR 




1 , 


3,0 

3 

1 

4(4) 


5(5) 


6(6) 


7(7) 










Write 


EDC/CRC 

Envelope Check/VRC 

Overrun 

Skew 

C-Compare 

Trigger 









VRC 


3 

' 3 _ 

_ h* _ 

0,5 

3,2 

3,7 

4,3 

8(8) 



9(9) 


10(A) 

Start 

Read 

Check 

11(B) 

Excessive 

PE 

Mask Bit 


Track in 

Error Mask 

Write 

Partial 

Post 

ID 

CH 

Expansion 


Bits 2, 0-7 

TM Check 

Record 

Amble or 
TM 

5,3 

_LL 

_LL 

P 

0| 11213 

4 1 5] 6 j7 

5,2 

5,4 

5,5 

5,6 

12(C) 


13(D) 


14(E) 


15(F) 


IBG Drop 

Feed- 


Early Begin 

Early End 

Slow Begin 

Slow End I 

Velocity 

While 

Through 

Spare 

Readback 

Readback 

Readback 

Readback 

Retry 

Writing 

Check 


Check 

Check 

1 Check 

Check 


8,0 

8,1 

8,2 

8,3 

8,4 

8,5 

8,6 

8,7 

16(10) 

Vel. 

17(11) 


18(12) 


19(13) 




Change 





Bus-Out 

ALU 

Not Used 

During 

Not Used 

Not Used 

Backward 

Check 

Hardware 



Write 






1 Error 


9,0 

9,1 

9,2 

9,3 

3,6 

0,2 

| 4,0 


2-20 OS/VS1 Programmer’s Reference Digest 







Device Statistics Table (cont'd) 


3540 Input/Output Diskette Unit 


0(0) 

Not l 

i 

Jsed 

10) 

Not 

Used 

1 1 
Bus-Out 
Check 

2(2) | 

Not 

Used 

No 

Record 

Found- 

CRC 

Error 

3(3) No 

Record 
Found- 
No CRC 
Error 

1 Fast/ 

1 Slow 
Index 

4(4) 

Address 

Marker 

Failure 

Data 

Address 

Marker 

Incorrect 

5(5) 

Data 

CRC 

Error 

Control 

Unit 

| Overrun 

6(6) 

Not 

Used 

1_ 

7(7) 

Not 

Used 

Channel 
Data 
| Check 

8(8) 

Work 

Area 

1 _ 

9(9) | 

Work Area 

_ 1 _ 



3800 Printing Subsystem 


0(0) 


I 0) 


2 (2) 


3 (3) 1 

Tempor- 

Tempor- 

Tempor- 

Temporary 

Temporary 

Refolder 


ary Read 

ary Write 

ary Data 

Control 

Interface 

Table 


Failures 

Failures 

Check 

Check 

Control 

Check 

Check 



4 (4) 


5(5) 


6(6) 

I 


7(7) 

_ 

8(8) 


9 (9) 





Work Area 

1 

Work Area 

1 
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If request is 

and data set is 

specific 

nonspecific 

temporary 

nontemporary 

X 


X 


X 



X 


X 

X 



X 


X 

1) Vol=Ser: 

2) Vol=Ref to 
Another DS 
in Job Step 
or to the 

Catalog 

Old DS Must 
Always Use 
Specific Req 

No Vol Serial 
is Stated or 
Implied 

Only for New 

DS 

1) No 

DSNAME 

2) &DSNAME 

3) Disp=(New, 
Delete) 

4) Add Card 

That Refers 
Back to Any 
of These 

1) 0 Id Data Sets 

2) Disp Keep or 
CATLG 


then it can be satisfied with a volume that is: j 

Permanently Resident 

Reserved 

Removable | 

Public 

Private 

Storage 

Public 

Private 

Storage 

Public 

Private 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 


X 

X 




X 



X 

(See Note] 


These Volumes Are Never 
Available for Dismounting by 
the System. 

1) Nondismountable (2305) 

2) IPL Vol 

3) LINKLIB, PROCLIB, 

JOBQE, page, or SPOOL 
Volumes 

4) Via PRESRES 

Not Available for Dis¬ 
mounting until an Unload 

CMD Is Issued. 

1) Via PRESRES 

2) Via a MOUNT CMD 

These Volumes Are 
at the Disposition of 
the System. 

1) All Other DA 
Volumes 


Note: This type of request is satisfied by a public removable volume that is made private. 


ALLOCATION CHARACTERISTICS 


A STORAGE volume is: A PRIVATE volume: 


A PUBLIC volume is: 


Designated in PRESRES. 

A volume for which the mount 
command has been given with 
a USE parameter of STORAGE 
(i.e., MOUNT 131, USE= 
STORAGE). 


Designated in PRESRES. 
Requested with the PRIVATE 
subparameter specified, and the 
volume is removable. Was re¬ 
quested nonspecifically for a 
nontemporary data set and the 
request had to be satisfied with 
a removable volume. 

A volume for which the mount 
command has been given with a 
USE parameter of PRIVATE (i.e., 
MOUNT 131, USE=PRIVATE 
(defaul t)). 


Designated in PRESRES. 
A removable volume that 
has not been made 
PRIVATE. 

A volume for which 
the mount command 
has been issued with 
a USE parameter of 
PUBLIC (i.e., MOUNT 
131, USE=PUBLIC). 


Device Allocation For New Data Sets 




Completion Code Summary 


NOTE: This summary is sequentially ordered by the 2nd and 3rd digits of the completion code. 

To quickly find the explanation for a given code, say 03D, first locate the section for 

_3D . 


Group 

Completion 

Code 

Operation of 

Macro Instruction 

Explanation 

Supervisor 

Fnn 


Invalid operand, nn, in SVC instruction. 

Call 

(SVC nn) 




EXCP 

100 

I/O operation 

Device not operational . 

(SVC 00) 

200 

I/O operation 

Invalid SCB, IOB, DCB protect key. 


300 

I/O operation 

Invalid DEB protect key. 


400 

I/O operation 

Invalid DCB pointers. 


500 

I/O operation 

Invalid UCB address. 


600 

I/O operation 

Requested by subsystem (EXCPVR) and JSCB is 
missing or susbsystem bit in JSCB is not on . 


700 

I/O operation 

No SQA (system queue area) available for the 
request or the system lock was set. 


800 

I/O operation 

Invalid address of control block, appendage, 
CCW, or CCW data field was found; page fix 
request too large. 


900 

I/O operation 

More than 240 CCWs specified for translation . 


A 00 

I/O operation 

CCWs modified in a PCI appendage were 
changed to cause the CCW translator to need to 
fix a page. I/O supervisor encountered a page 
fix request in PCI. 


BOO 

I/O operation 

Overfix threshold exceeded. 


COO 

I/O operation 

Invalid number of entries in the fix list was 
found upon return to IOS from the user fix 
appendage. 

Misc. 

D00 


Error occurred during processing of an SIO 
extended request. 

BDAM/ 

BISAM/ 

001 

CHECK 

I/O error encountered and either no SYNAD 
address specified in DCB, or 

BSAM 




QSAM 


GET,PUT 

terminate option in DCBEROPT of DCB. 

WAIT 

101 

WAIT 

More-events than ECBs. 

(SVC 01) 

20) 

WAIT 

Invalid ECB address. 


301 

WAIT 

ECB wait flag already on. 

BSAM/ 

QSAM/ 

qisam/ 

ISAM 

002 


Record is greater than 32,768 bytes; exceeds 
maximum track length or stated blocksize; 
could not be contained in one extent; too 
many tracks specified for cylinder overflow; 
or BDW or RDW (SDW) invalid. 

POST 

102 

POST 

Invalid ECB address. 

(SVC 02) 

202 

POST 

Invalid RB address in ECB. 


402 

POST 

Invalid EVENTS table address. 


502 

POST 

EVENTS table specified in ECB had no 
available entries to contain posted ECB address. 

BSAM/ 

QSAM 

003 

EOB for 3525 

3525 associated data set I/O macro sequence 
error. 

Task 

103 

RETURN or branch 

ECB already posted or RB address in ECB 

termination 

(SVC 03) 


to return address 
in register 14 

invalid. 


A03 

i_ 

RETURN or branch 
to return address 
in register 14 

Subtasks not yet terminated. 
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Completion Code Summary (cont'd) 



Completion 

Code 

Operation of 

Macro Instruction 

Explanation 

Task 

C03 

RETURN or branch 

TCBDEB points to DEB that is associated with an 

termination 


to return address 

invalid DCB. WARNING: all data sets not 

(SVC 03) 


in register 14 

closed. 

(continued) 

D03 

RETURN or branch 
to return address 
in register 14 

ENQ resources not released yet. 

BSAM/ 

004 

OPEN for 3525/ 

Invalid FORMAT card or invalid device 

QSAM 


3505 

specified with OMR; conflicting or invalid DCB 
parameter; data protection image not found in 

SYS1 .IMAGELIB. 

GETMAIN 

604 

GETMAIN 

Address in A or LA operand is outside task. 

(SVC 04) 

704 

GETMAIN 

List request not valid for VS1 . 


804 

GETMAIN or 
language processor 

Request for zero bytes of virtual storage or not 
enough virtual storage available. 


A04 

GETMAIN 

Storage management queues have been altered 
incorrectly. Re-IPL the system. 


B04 

GETMAIN 

Subpool number greater than 127. 


E04 

GETMAIN from 
program in 
supervisor mode 

Not enough storage available in fixed or 
pageable SQA. 

BSAM 

005 

READ for 3886 

Invalid DECB. 

FREEMAIN 

605 

FREEMAIN 

Address in A or LA operand is outside task. 

(SVC 05) 

705 

FREEMAIN 

List request not valid far VS1 . 


905 

FREEMAIN 

Address of area to be released not multiple of 8. 


A05 

FREEMAIN 

Area to be released overfaps existing free area. 


B05 

FREEMAIN 

Subpool number greater than 127. 

Contents 

106 

LINK, LOAD, 

Error while loading module into virtual storage: 

supervisor 


ATTACH, XCTL 

invalid record type, invalid address, I/O error. 

(SVC 06) 

406 

LINK, ATTACH, 
XCTL 

Module was Only loadable. 


506 

LINK, LOAD, 
ATTACH, XCTL 

Not enough virtual storage for module and 
overlay Supervisor. 


606 

LINK, LOAD, 
ATTACH 

Not enough virtual storage for module. 


706 

LINK, LOAD, 
ATTACH, XCTL 

Module marked "NOT EXECUTABLE". 


806 

LINK, LOAD, 
ATTACH, XCTL 

BLDL detected error: module not found, I/O 
error during directory Search, or JOBLIB DCB 
not open. 


906 

LINK 

More than 255 tasks waiting for reenfrable or 
serially reusable module. 


A06 

LINK, LOAD, 
ATTACH, XCTL 

Task already waiting for serially reusable 
module. 


B06 

I/O activity 

Abnormally terminating system error task 
reinstated; user task abnormally terminated. 


C06 

XCTL 

Abnormally terminating transient area task 
reinstated; user task abnormally terminated. 

XCTL 
(SVC 07) 

207 

XCTL 

An asynchronous exit routine attempted to 
execute XCTL. 

BSAM 

008 

CHECK while 
creating data set 

SYNAD returned to CHECK routine after save 
area was destroyed. 
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Completion Code Summary (cont'd) 


Group 

Completion 

Code 

Operoti on of 

Macro Instruction 

Explanation 

GETMAIN, 

1 OA 

GETMAIN for pro- 

Not enough available storage in local system 

FREEMAIN 
with R 


gram in supervisor 
mode 

queue space (VS2 only). 

operand 

20A 

Getting, freeing. 

Storage still allocated to previous step; new 

(SVC OA) 


or replacing region 
for new job step 

step (VS2 only). 


30A 

FREEMAIN 

Area to be released not within correct subpool 
or not described by DQE (VS2 only). 


4QA 

FREEMAIN 

Attempt to release all of subpool zero 
(VS2 only). 


60A 

FREEMAIN 

Invalid specification of an area to be freed. 


80A 

GETMAIN 

Request for zero bytes of virtual storage or not 
enough virtual storage available. 


90A 

GETMAIN, 

FREEMAIN 

Address of area to be released not a multiple 
of 8. 


AOA 

GETMAIN, 

FREEMAIN 

Area to be released overlaps an existing free 


BOA 

GETMAIN, 

FREEMAIN 

Subpool number greater than 127. 


DOA 

FREEMAIN with R 
operand 

Attempt to free system queue area storage not 
owned by task (VS2 only). 

ABEND 
(SVC OD) 

DOD 

ABEND 

Invalid ABEND recursion during abnormal 
termination of subtask; job step terminated. 


EOD 

ABEND 

Insufficient virtual storage available for ABEND 
processing of subtask, job step terminated . 

OPEN 
(SVC 13) 

013 

OPEN 

Conflicting or unsupported parameters in DCB; 
member name specified in DD not found; no 
directory allocation subparameter in DD . 


113 

OPEN,OPEN with 
TYPE =J 

I/O error reading or writing JFCB or in reading 
JFCB extension block; no exit code provided . 


213 

OPEN 

INPUT, INOUT, or RDBACK specified but no 
serial number for SER in DD; I/O error reading 
volume label, could not mount volume on 
device; more devices allocated than volumes. 


313 

OPEN 

I/O error in reading format 2 or 3 D5CB. 


413 

OPEN 

INPUT specified but no serial number for SER in 
DD; I/O error in tape positioning or label 
processing; could not mount volume on device; 
more devices allocated than volumes. 


513 

OPEN 

Attempting to open second DCB for same tape 
volume. 


613 

OPEN 

I/O error in label processing or tape positioning. 


743 

OPEN 

Expiration date not reached, but data set opened 
for output and DD contained MOD in DISP. 


813 

OPEN 

Verification error in label processing. 


913 

Supplying password 

Incorrect password entered twice; third byte of 
80-byte record for data set not used to indicate 
read, write, or read and write; ASCI! tape 
accessibility error, ASCII tape security error. 


A13 

OPEN 

File sequence number in LABEL on DD not on 
volume . 


BI3 

OPEN for UCS 

Operator canceled UCS load or permanent I/O 
error detected. 


CJ3 

OPEN 

I/O error in reading JFCB or DSCB for con¬ 
catenated data set; JFCB or DSCB not found for 
one data set in concatenation; graphic device 
already opened by another task . 


D13 

OPEN for graphics 

Graphic device not opened by closing task. 


E13 

OPEN for graphics 

DCBGNCP field not 1 through 99. 
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Completion Code Summary (cont'd) 


Group 

Completion 

Code 

Operation of 

Macro Instruction 

Explanation 

CLOSE 
(SVC 14) 

214 

CLOSE 

I/O error in tape positioning or volume 
disposition. 


314 

CLOSE 

I/O error reading DXCB. 


414 

CLOSE 

I/O error writing updated DSCB. 


514 

CLOSE 

I/O error reading JFCB. 


614 

CLOSE 

I/O error writing file mark. 


714 

CLOSE 

I/O error processing label. 


A14 

CLOSE 

I/O error releasing unused D/A space. 


B14 

CLOSE 

STOW unable to store, modify, or delete data 
from partitioned data set directory because name 
already in directory, no space available in 
directory, or I/O error searching directory. 


D14 

CLOSE for graphics 

Graphics device already opened by another task. 

TCLOSE 

117 

BSAM CLOSE with 
TYPE =T 

I/O error positioning tape or writing file mark. 


217 

BSAM CLOSE with 
TYPE =T 

I/O error reading JFCB. 


317 

BSAM CLOSE with 
TYPE-T 

I/O error reading DSCB. 


417 

BSAM CLOSE with 
TYPE =T 

I/O error writing updated DSCB. 


717 

BSAM CLOSE with 
TYPE =T 

I/O error processing label. 

BDAM 

020 

OPEN 

Invalid DCBMACRF field. 

Master 

122 


Operator canceled job; requested dump. 

Scheduler 

222 


Operator canceled job; did not request dump. 

(SVC 22) 

322 

422 

522 


Execution of job step or cataloged procedure 
taking longer than time specified. 

Job required too much queue space for initiation. 
All tasks in SVC wait state for time specified by 
W'AIT parameter of CTRLPROG macro or for time 
specified in JWT parameter (in systems with SMF). 

Misc 

722 

822 


OUTLIM keyword specified on SYSOUT DD 
statement exceeded. 

V = R area not obtained . 

WTO/ 
WTOR 
(SVC 23) 

D23 

WTO, WTOR 

Parameter list does not begin on proper 
boundary, text length zero or less, or no buffers 
available, 


E23 

Reply command 
processing (in 
response to WTOR) 

Invalid ECB address, RB address, or reply 
address. 

BDAM 

025 


Address in DCBSQND field Outside task. 


026 

Processing with 
exclusive control 

Invalid DCBXARG field or exclusive control 
status not indicated. 

Paging 

028 


Page fi le I/O error. 

EXTRACT 
(SVC 28) 

128 

EXTRACT 

Output list not on fullword boundary or not 
contained in storage assigned to job step. 


228 

EXTRACT 

Input parameter list not on fullword boundary or 
does not begin in storage assigned to job step. 


328 

EXTRACT 

TCB not for immediate subtask. 

ATTACH 
(SVC 2A) 

42A 

ATTACH 

Address for ECB to be posted upon subtask 
termination is not multiple of 4, higher than 
highest virtual storage, or does not have same 
protect key as attaching task. 
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Completion Code Summary (cont'd) 


Group 

Completion 

Code 

Operation of 

Macro Instruction 

Explanation 

CHAP 
(SVC 2C) 

12C 

CHAP 

TCB address (for subtask) does not point to valid 
TCB or TCB of immediate subtask, is not a 
multiple of 4, or points to a task that has 
terminated. 


22C 

CHAP 

TCB address (for subtask) not a multiple of 4, 
higher than highest virtual storage, or does not 
have same protect key as CHAP issuer. 

Overlay 

12D 


Words 3 and 4 of segment table invalid. 

Supervisor 

(SVC 2D) 

22D 

32D 

C2D 

D2D 

E2D 


Address in segment table or entry table outside 
storage for job step. 

Wrong length record or I/O error when loading 
segment. 

Invalid scatter record found while loading 
program segment. 

Invalid record type found while loading 
program segment. 

Invalid address found while loading program 
segment. 

BlSAM/ 

QISAM 

030 

OPEN 

Invalid DCBMACRF field. 

DEQ 

(SVC 30) 

130 

DEQ 

DEQ for resource not enqueued by prior ENQ, 
DEQ RET =HAVE operand missing . 


230 

DEQ 

Invalid length specified for name of resource. 


330 

DEQ 

Supervisor state option specified in problem 
program state. 


430 

DEQ 

Invalid parameter list. 


530 

DEQ 

Task does not yet control specified resource. 

BlSAM/ 

031 

OPEN 

QISAM I/O error; no SYNAD specified. 

Qisam 

032 

OPEN 

Invalid DCBMACRF field for BlSAM. 


033 

OPEN 

I/O error reading highest level index or 
validating last record pointers, or address in 
DCBMSHi field outside task or under incorrect 
protection key. 


034 

OPEN 

DCBSMSI field specifies areo too small for 
highest level index; invalid address in 

DCBMSWA (BlSAM). 


035 

OPEN 

DCBSMSW field specifies area too small for one 
track for BlSAM. 


036 

OPEN 

No prime area specified. 


037 

OPEN 

User supplied buffers too small. 

EOV 

137 

End of volume 

I/O error in label processing. 

(SVC 37) 

237 

End of volume j 

. 

Verification error in label processing; tape label 
block count not same as DCB block count; 
interrupt during command chaining . 


337 

End of data set 

No address specified in DCBEODAD field. 


437 

End of volume 

Protect key different in TCBPKF field of TCB 
than in DEBDEBID field of DEB. 


537 

End of volume for 
multiple volumes 

Specified volume being used for another data 
set. 


637 

End of volume 

I/O error writing tape mark, positioning tape, 
reading label, sensing for file protect ring; DCB 
bit does not indicate concatenation of unlike 
attributes. 


737 

End of volume or 
allocation of 
secondary quantity 

DA I/O error; DSCB not found for multivolume 
or concatenated data set. 
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Completion Code Summary (cont'd) 


Complei 

Group Code 


EOV 837 

(SVC 37) 
(continued) 


I Operation of 
Macro Instructio 


End of volume 
End of volume 


I/O error reading or writing JFCB from or onto 
direct access; JFCB extension needed but not 
found. 

DCB not open; DCB not pointing to a proper DEB. 
Volumes must be demounted from a device 
allocated to the data set, but system unable to 
demount volume. 

More space needed but no secondary quantity 
specified to SPACE in DD. 

More space needed but no more volumes 
specified in SER, volume count, or REF in DD; 
more space needed but unavailable in 
partitioned data set, additional space would 
require another volume or 17 extents. 


ENQ without RET = 
TEST, USE or HAVE 
ENQ 
ENQ 


Index area too small or crosses volumes. 

Second ENQ without intervening DEQ. 

Invalid length for resource name. 

Set-must-complete (SMC) or directed ENQ 
specified in problem program state. 

Invalid parameter list. 

End of data set; no address in DCBEODAD field. 
I/O error writing updated format 2 DSCB. 

ISAM data set to be processed, but not created 
or its DCB not closed after creation . 

Indexed sequential not specified, or serial 
numbers for SER in DD not in order or not all 
present. 

No space available for resume loading. 

Subtask being detached not yet terminated. 
Address of subtask TCB is not multiple of 4, is 
higher than highest virtual storage, does not 
have same protect key as DETACH issuer; 
address specified not valid TCB or TCB of 
immediate subtask, 

Error during execution of checkpoint restart. 

Error in opening a TCAM line group data set or 
establishing VTAM interface. 

I/O error reading JFCB. 

(1) No foundation extension block in DCB. 

(2) No EXLST address in DCB. 

(3) No JFCB exit in DCB exit list. 

(4) JFCB buffer not in user's virtual storage. 

Error in opening a TCAM message queues data 


Message Control 
Program (MCP) 


Error in running a TCAM MCP with the 
telecommunication on-line test executive. 

Error in opening a TCAM application program 
data set. 

Error in processing the FE common write subtask. 
I/O error or logical read error. 
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Completion Code Summary (cont'd) 



Completion 

Operation of 


Group 

Code 

Macro Instruction 

Explanation 

TCAM 

046 

CLOSE 

TCAM MCP is scheduled to be terminated. 

(continued) 



application program data set active. Com¬ 
pletion code is for the applications program data 




set. 

SWAP 

155 


SVC 85 (in decimal) issued by user's task, but is 

(SVC 55) 



restricted for use by Dynamic Device 
Reconfiguration. 

Graphics 

056 

Graphics attention 

ANALY2 or GSERV specified DCB, which 

access 


service routine 

pointed to DEB, which pointed to invalid UCB. 

method 

057 

Graphics Attention 

ANALY2 or GSERV specified DCB, which 

(GAM) 


service routine 

pointed to DEB, which pointed to UCB for other 
than graphics device. 


061 

CLOSE 

CLOSE issued DAR to GACB that was not 
specified (via SPAR) by the closing task. 


062 

Graphics Subrou- 

Return code equal to or greater than absolute 



tine Package (GSP) 
for FORTRAN IV, 
COBOL, and PL/I 

value of null argument produced . 


063 


2250 operator depressed alphameric keyboard 
CANCEL key and used lightpen to terminate 




program. 

ESR 

(SVCs 6D, 
74, 7A) 

16D 


Invalid ESR code in register 15. 


Supervisor 

16E 

DEBCHK 

Control program requested a DEBCHK function 

(SVC 75) 



be performed on a data extent block (DEB) 
obtained from the DCB passed by the program. 
Function could not be completed. 

EVENTS 

17A 

Delete or create 

Invalid EVENTS fable address. 

(SVC 7A) 

27A 

EVENTS table 

EVENTS table not created. 


37A 


System waiting for specified EVENTS table. 


47A 


Specified number of entries not 1 to 32, 767. 


57A 


Non-job-step task or unauthorized user 
attempted to use restricted EVENTS option. 

EVENTS 

17D 

Process completed 

Invalid EVENTS table address. 

(SVC 7D) 

27D 

events 

EVENTS table not created. 


37D 


System waiting for specified EVENTS table. 


47D 


Specified number of entries not 1 to 32, 767. 


570 


Invalid ECB address or nonmatching keys. 


67D 


ECB already waiting when initialization as such 
specified. 


77D 


invalid parameters in registers 1 and 0. 

ST AM 

090 

OPEN 

UCB for other than communications device. 


091 

OPEN 

UCB specified invalid or unsupported trans¬ 
mission control unit. 


092 

OPEN 

UCB Specified invalid or unsupported terminal 
control or adapter. 


093 

OPEN 

UCB specified invalid or unsupported terminal. 


094 

OPEN 

UCB specified invalid or unsupported optional 
feature or mode of operation . 


095 

OPEN 

Line group did not have identical terminal types 




and/or optional features. 


096 

OPEN 

DCBBFTECK field specified dynamic buffer 
allocation, but DCBBUFCE, DCBBUFNO, and 
DCBBUFI fields not specified. 


097 

OPEN 

Device I/O directory full, 
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Completion Code Summary (cont'd) 



Completion 

Operation of 


Group 

Code 

Macro Instruction 

Explanation 

BTAM 

098 

OPEN 

Transmission control unit not a 2701 or the Dual 

(continued] 



Communication interface, or Dual Code Feature 




not specified in UCB. 

VTAM 

0A8 

Application program 

Invalid user's RPL or ECB. 


0A9 

A VTAM module 

Finished processing while holding a lock; invalid 
DVT; request for (or release of) storage failed; 
returned control to user's STAE exit routine. 

Job 

0B0 


I/O error in reading or writing SYS1 .SYSJOBQE, 

Scheduler 



SYS1 .SYSWADS, or SWADS . 


1 BO 


Invalid TTR for SYSI .SYSJOBQE found by system 




conversion routine. 


0B6 


System logic error while accessing resident job 
list or SYSI .SYSJOBQE. 

Prologue 

OCx 


Program interruption, not in I/O interruption 
handler or type 1 SVC routine; no program 
routine to handle interruption; x=program 
interruption code. 

Paging 

0D0 


Invalid segment translation interrupt. 


0D1 


Invalid page-fault interrupt. 

Prologue 

0D3 


Program interrupt caused by invalid set system 
mask (SSM) instruction. 


0F1 


Program interrupt in I/O interrupt handler. 


OF 2 


Program interrupt in type 1 SVC routine. 


OF 3 


Machine-check interrupt; MCH able to 
abnormally terminate job step and continue 
operating system. 

System 

2F3 


Job was being executed when system failure 

Restart 



occurred; a system restart was performed. 

Prologue 

OF 5 


Program interrupt occurred while loading 
transient area for type 3 or 4 SVC. 

RTAM 

1F9 

MODIFY command 

A writer task was abended when: 




• it had an outstanding reply, and 

• a line communication logically disconnected. 

Misc 

3FE 


Task attempted to end normally but telepro¬ 
cessing I/O requests were active or pending. 


4FE 


Task attempted to end normally but nontele¬ 
processing I/O requests were pending and no 
teleorocessing I/O requests were outstanding . 
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Wait State Codes 

001 IPL/NIP: Not operational in response to a test I/O instruction (reg. 10=unit 
address). 

002 IPL/NIP: I/O operation not initiated, CSW stored, and channel not busy 
(reg. 10=unit address). 

003 IPL/NIP: I/O operation not initiated, CSW not stored, and channel not busy; 
or SYS1 .LINKLIB not cataloged, no UCB found for IPL device, unexpected 
"not operational" condition found (reg. 10=unit address). 

004 IPL/NIP: I/O operation not initiated, CSW not stored, channel not busy 
(reg. 10=unit address). 

005 IPL/NIP: I/O interrupt because of unit check (if IPL, fourth byte of PSW= 

X'00 1 ; X^C^address of CCW causing check; X'54 l= sense bytes describing check. 
Reg. 10=unit address). 

006 IPL/NIP: interface control check, channel control check, channel data check, 
program check, or channel chaining check occurred. 

007 NIP: Console not available. 

008 NIP: I/O interruption because of unit check. Record not found, unformatted 

direct access volume mounted on online device, or volume label on an alternate 
track (reg. 10=unit address). 

009 NIP: I/O interruption because of unit check. File mask violation (reg 10= 

unit address). 

00A SYS1.LINKLIB not found in catalog 

OOF IPL: Volume not containing IPL text used for IPL. 

010 NIP: I/O interruption because of unit check. End of cylinder (reg 10=unit 

address). 

011 NIP: I/O interruption because of unit check. Track condition check occur¬ 
red (reg. 10=unit address). 

012 NIP: System generated with ECPS but ECPS hardware not present. 

013 NIP: Recovery not possible. Check system completion code. 

017 IPL/NIP: Unit check while executing sense instruction (reg. 10=unit address). 

018 IPL: Nucleus too big for machine size. Space for RLD records exceeded. 

019 IPL: Program interruption because of hardware errors or SYS1 .NUCLEUS 

occupying more than one extent. 

021 NIP: I/O interruption on teleprocessing or graphic console (reg. l=pointer to 
IOB for failing EXCP operation). 

026 IPL: PWF support successfully refreshed real storage from a warn data set, or after 
a utility power disruption, PWF support successfully transferred real storage to a 
warn data set. 

027 IPL: PWF support was unable to refresh real storage from a warn data set, or after 
a utility power disruption, PWF support was unable to transfer real storage to a 
warn data set. 

0E2 NIP: Machine check interruption occurred before machine check handler 
initialized. 

0F1 DDS: Error processing encountered error preventing reinstatement of VS 
processing (Message IQA016W). 

0FA DSS: Translation specification exception (Message IQA010W). 

900 NIP: Error occurred during initialization of one or more page data sets 
(Messages IEA750W, IEA751W, IEA752W, IEA753W, IEA754W, IEA755W). 

901 SUPVR: Channel program check during paging I/O operation. 

902 SUPVR: Uncorrectable I/O error while pageable supervisor was being read 
into real storage from SYS1.PAGE data set. 

903 SUPVR: Page supervisor ended abnormally. 

904 NIP: Unable to complete system initialization. 

905 IPL: CPU model number obtained by a Store CPUID instruction not found in 
IPL list of supported models. 

906 IPL: Machine check interruption because of either a malfunction other than 
a storage error or uncontrollable real storage error in first 256K of storage. 
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Wait State Codes (cont'd) 


907 NIP: Link or load failed for an essential module (Message IEA782W). 

908 NIP: System generated with extended timer support but clock comparator 

and CPU timer not supported by hardware. 

A01 RMS: Error occurred while performing recovery. Probable machine check 
on machine check. (Message IGF910W). 

A02 RMS: Error occurred while performing a recovery. Probable machine check 
on machine check. 

A03 RMS: Error occurred while performing a recovery. Probable program check 

on machine check (Message IGF910W). 

A04 MCH: I/O error during machine check recovery (Message IFG930W). 

A05 MCH: Unrecoverable failure within supervisor area (Message IGF900W). 

AOA MCH: Encountered failure that channel check handler could not correct. 

AOC MCH: Unable to load a page on a low end system (Message IGF930W). 

A11 RMS: Error occurred while performing a recovery. Probable invalid 

machine check interrupt code (Message IGF910W). 

A16 MCH: Failure in time of day clock, clock comparator, or CPU timer 
(Message IGF950W). 

A17 MCH: Failure in interval timer (Message IGF950W). 

BO 1 3211 Utility: Completed normally. 

B02 3211 Utility: Control card missing or out of order. 

B03 3211 Utility: JOB statement is incorrect. 

B04 3211 Utility: DFN statement is incorrect. 

B05 3211 Utility: UCS statement is incorrect. 

B06 3211 Utility: FCB statement is incorrect. 

BO7 3211 Utility: END statement is incorrect. 

BOA 3211 Utility: External interrupt has occurred. Interrupt key was pressed. 

BOB 3211 Utility: Program check interrupt has occurred. 

BOC 3211 Utility: Machine check interrupt has occurred. 

Bll 3211 Utility: Reader is not online. 

B12 3211 Utility: Reader is not ready. 

B13 3211 Utility: Reader is not ready. 

B14 3211 Utility: Reader channel error has occurred. 

B15 3211 Utility: No device end is indicated on the reader. 

B19 3211 Utility: Printer is not online. 

BIB 3211 Utility: Unit check has occurred on the printer. 

B1C 3211 Utility: Printer channel error has occurred. 

BID 3211 Utility: No device end is indicated on the printer. 

D01 SUPVR: ABTERM or PROLOG failed while processing the terminating program. 

E02 CONSOLE: Permanent I/O error on 2250 display unit. No alternate console 

was available. 

E04 SUPVR: SQA had less than 288 bytes. GETMAIN request was issued for more 
SQA space than was available. 


2-32 OS/VS1 Programmer’s Reference Digest 








Page of GC24-5091-5 
Revised September 15, 1976 
By TNL GN24-5525 


System ENQ/DEQ Names 


Major 

Minor 

Resource Serialized 

SYSABEND 

DUMP 

ABEND dump dataset. 

SYSCTLG 

SYSCTLG 

Catalog management. 

1 SYSDSN 

dsname 

Non-temporary dsnames (Dataset Integrity). 

SYSDSNI 

dsname 

Non-temporary dsnames for initiators. 

SYSIEA01 

IEA 

User SNAP dump dataset. 

SYSIEC16 

x'FO' 

DEB chain for purge. 

SYSIEECT 

IEEWQE 

WQE when all console buffers are full. 


IEERQE 

ORE when the number of outstanding reply 
requests is at the system limit. 

SYSIEFDR 

JOBQ TTR 
of DER 

Disk entry record (DER). 

SYSIEFPL 

SPOOL 
job number 

SPOOL allocation. 

SYSIEFSD 

BMRSCH 

Buffer User Table (SPOOL). 


BUF 

SMF buffer. 


CMCM 

Checkpoint MCM (SPOOL). 


DS 

Dataset Integrity process. 


INNWE 

Input No-Work-Element overflow chain (Job List). 


IOBF 

Work Area Allocation buffer (SPOOL). 


JEPS2 

Initiator/JEPS parameter area. 


JOBNO 

SPOOL job number. 


JSCBWTP 

System Message dataset for multitasked 
job (Write-to-Programmer). 


MT 

Mount TRCB chain. 


OUTNWE 

Output No-Work-Element overflow chain (Job List). 


PARTBNDS 

Checkpoint/Restart partition boundaries. 


Q1 

Job List. 


Q2 

Master OCR (System Swads). 


Q3 

No-space ECB (System Swads). 


04 

I/O device allocation. 


05 

UCBs (Scheduler fields). 


07 

Allocation for system starts. 


Q8 

I/O device allocation mount verification interface. 


Q12 

Job Queue VCBs. 


Q13 

No-space ECB (Job List). 


Q14 

No-space ECB (Job Queue). 


RMCM 

Resident MCM (SPOOL). 


SR 

System TRCB chain. 


WD 

Accounting dataset. 

SYSIEFSM 

SMRSCE 

SPOOL User Table. 


SMRSCT 

Lock ECB for SPOOL DSD use counter (JES writer 
request). 

SYSIEFUM 

iSSPAREA 

Request for ISSP if exit definition tables are not 
defined. 

SYSIEWL 

(dsname for 
SYSLMOD) 

Linkage editing. 

SYSIGGLG 

MBBGCHHR 

RO (capacity record) for BDAM. 

SYSPSWRD 

PASSWORD 

Security dataset for OPEN/EOV. 

SYSSMF01 

BUF 

Common SMF record buffer. 

SYSSMFDP 

DATASET 

SYS1.MAN dataset during dump processing. 

SYSVTOC 

vol-ser 

Volume Table of Contents. 
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How To Find Associated Logical Channel Word 

CVT PTR (+140) to LCW Table 



LOGICAL CHANNEL WORD TABLE 

The logical channel word table consists of the logical channel words that control the 
logical channel queues. It is used by the I/O supervisor and the I/O purge and SVC 
purge routines. 

The logical channel word table has the following characteristics: 

1. Creation: The table is created at system generation time. 

2. Storage Area : The table resides, as a permanent part of the fixed nucleus. 

3. Size: The table contains one 8-byte logical channel word per logical channel 
queue. 

4. Means of Access : Find the start of the LCW table in CVT + 8C; add to this 
pointer the value of the LCHTAB byte in the UCB (UCB + A) multiplied by eight. 

The format of a logical channel word is: 


FIRST 

REQUEST 

LAST 

REQUEST 

SCRATCH 

TCH MOD 
ADDR 

•*-2 bytes-► 

-«— 2 bytes —► 

-81 

— 2 bytes —► 

jytes- 

■*— 2 bytes—► 


FIRST REQUEST (2 bytes) 

These two bytes contain either an address or an index value to the first request 
element in the logical channel queue. 

LAST REQUEST (2 bytes) 

These two bytes contain either an address or an index value to the last request 
element in the logical channel queue. 

SCRATCH (2 bytes) 

This field is used as a temporary storage area for an address or index value. The 
field is used when more than one logical channel queue for a physical channel is 
searched in order to find the highest priority I/O request with which to restart the 
channel. 

TCH MOD ADDR (2 bytes) 

This field addresses the device-dependent test channel module. 

Notes: 

1. When a logical channel queue is void, the FIRST REQUEST field contains 

a dummy link address of hex FFFF and the LAST REQUEST field contains the 
address of that logical channel word. 

2. When there is only one request element in the queue, both FIRST REQUEST 
and LAST REQUEST contain the address of that element. 
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How To Find the Entry Point of Types I and li SVCs 

A. Pick up the instruction address from the SVC New PSW at X'60'. 

B. Starting at the location in Step A, search for the first L instruction (58 80 OXXX). 

C. The pointer to the SVC table prefix is at address XXX (step B). 

D. The pointer to the SVRB create routine in IEATA00 is at XXX +4. 

The pointer to the SVC SLIH is at XXX+8. The SVC table is at XXX+x'100' . 

E. Add the SVC number (hex) to the address of the SVC prefix fable. 

F. Pick up the byte value pointed to by the result of step E. 

G. Multiply the value picked up In step F by 4. 

H. Add the results of step G to the address of the SVC table determined in Step C. 

I. The value computed in step H points to a 4-byte address constant which is the SVC 
routine entry point. 

Note that all entry points are on a doubleword boundary. The three low-order bits in 
the entry address are not part of the actual address. Bits 5 and 6 equal the number of 
doublewords in register save area in SVRB. Bit 7 indicates an SVRB is needed. 

SVC TABLE FORMAT 



1-byte entry for type 3 
and 4 SVC routines 


2 

5 

1 

21 

3 



e 



1 


n 



0 

o 

a 

Virtual storage address 

ESA* 

c 


b 

of SVC routine 


k 


1 



_ 


e 




4-byte entry for type 2 SVC routines 
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How To Find (cont'd) 


SVC Table Format (cont’d) 


10 

8 

12 

2 

12 

1 

3 

Track Address 

Record 

Number 

Length of first 
text record 

1 

o 

c 

k 

Attributes of SVC 
routine 

e 

b 

I 

e 

ESA* 

6-byte entry fc 

8 

sr transient type 3 and 4 SVC routines 

22 

2 

12 

1 

3 

X'FF' 

Address of SVC routine 

1 

c 

k 

0 

e 

a 

b 

e 

ESA* 


6-byte entry for fixed type 3 and 4 SVC routines 


* ESA is the number of doublewords required for the 
extended save area in the request block. 


How to Find Resident Build List 

A. Pick up CVT pointer in location X'10 1 . 

B. Add X'20 1 to this pointer. This is CVTPRLTV pointer. 

C. Locate CVTPRLTV entry-8. 

D. This is pointer to resident build list. 

E. Format of resident build list: 

0-1 number of entries 
2-3 length of each entry 
4-43 entry number 1 
44-? entry number 2, etc. 

Normal length of each entry is 40 bytes. 

How to Find Resident SVC Load List and RAM List 

The resident SVC load list and RAM list pointers are two fullwords located before the constant 
IGG019 IFG019. The pointers are known as IEAARSV1 and IEAARAM4, respectively, and may 
be located from these names in LMODMAP. These constants are defined in IGC007, IGC008, 
or LINK, XCTL, and LOAD code if a system generation listing is available. 
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VS1 STORAGE SUBPOOLS 


A subpool is a group of logically related storage blocks identified by a subpool number and assigned through a GETMAIN instruction . The subpool number 
indicates the type of storage that is requested. The meaning of each subpool number is listed below. 



Subpool 


GQE 

Control Blocks 




Number 

Attributes 

Built 1 

Affected 

Function 

Remarks 


0 - 127 2 

Job - oriented 

Subtask 

Partition PFQE's 

Problem 




Pageable 

Key = User 

Allocated within partition 



Program 2 



128 

Job - oriented 

Subtask 

Partition PFQE's 

Partition 

Used by Supervisor and Scheduler. 

£ 


Pageable 

Key = User 

Freed at EOT 

Allocated from the high end of the 
partition 



Allocation^ 








o 

229 - 232 


NOT SUPPORTED 



o' 

3 

233 

Job - oriented 

Job Step 

FQE for Fixed PQA 

Fixed PQA 


to 


Fixed 

Task 

PPQE for Partition 



on 

o- 


Key = 0 

Freed at EOT 

Subtask 




% 


Task - related 





§ 


Allocated in the Fixed PQA that is 





3 


within the partition 





o’ 

234 

Job - oriented 

Job Step 

FQE for Fixed PQA 

Fixed PQA 

GETMAIN limited to 2K maximum. 

§ 


Fixed 


PPQE for Partition 



w 


Key = 0 





o' 


Freed at EOS 







Job - Step - related 

Allocated in the Fixed PQA that is 







within the partition 









Job - oriented 
Fixed 
Key =0 

Must be explicitly freed 
Explicitly assigned 
Allocated in the Fixed PQA that i: 
within the partition 


job - oriented 

Pageable 

Key = User 

Freed at EOT 

Allocated withirt partiti 


Job - oriented 

Pageable 

Key = User 

Freed at EOS 

Job - Step - related 

Allocated from the high end of the 

partition 

Pageable 
Key = User 
K ey * 0 

System - oriented 
Must be explicitly freed 
Explicitly assigned 


Control Blocks 
Affected 


FQE for Fixed PQA 
PPQE for Partition 


Reserved for VS2 Scheduler 


NOT SUPPORTED 



FQE for PSQA 
PCVT Boundary Box 


FQE's for SQA 
MSS Boundary Box 


GETMAIN limited to 2K me 
FREEMAIN must be issued e 
ABTERM occurs. 


Used by Super 
only. 


GETMAIN limited to 2K me 
FREEMAIN must be issued e 
ABTERM occurs. 






GQE 

Control Blocks | 



Built 1 

[ Affected 

[ Function 

Remarks 

Reserved for VS2, Release 1 



FQE's for SQA 

Master Scheduler 
Resident Data Area 
Boundary Box 

Fixed SQA 6 

GETMAIN limited 


NOT SUPPORTED 


Reserved for VS2 and/or OS/MVT 



Partition PFQE's 

Partition 

Allocation^ 


no 

Partition PFQE'a 

Partition 

Allocation^ 

For programs, only 

Job Step 
task 

Subtask ^ 

PFQE for Pageable 
PQA 

PPQE for Partition 

Pageable PQA 


Job Step 
task 
Subtask 

PFQE for Pageable 
PQA 

PPQE for Partition 

Pageable PQA 

| Shared component: 
| subpool. 
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Subpool 

Number 

Attributes 

GQE 

Built 1 

Control Blocks 
Affected 

Function 

Remarks 

254 

Job - oriented 

Pageable 

Key = 0 

Freed at EOS 

Job - Step - related 

Allocated in the pageable PQA that 
is in the partition 

Job Step 
task 

Subtask' 7 

PFQE for Pageable 
PQA 

Pageable PQA 

Shared components must not use this 
subpool. 

255 

Job - oriented 

Pageable 

Key = 0 

Must be explicitly freed 

Explicitly assigned 

Allocated in the pageable PQA that 
is in the partition 


PFQE for Pageable 
PQA 

PPQE for Partition 

Pageable PQA 

Shared components must not use this 
subpool. FREEMAIN must be issued 
even if ABTERM occurs. 


NOTES: 

1 GQE's are never built for a system task. A GQE is built for a subtask only if the GETMAIN was done by a key -0 program running under that subtask. 

2 If the requester for subpools 0 - 127 is in the supervisor state, the request is from problem program low storage. Problem program requests are from high 
storage. 

3 128, 240, and 250 from high end. 

4 238 and 251 from low end. 

5 System tasks use PSQA. Their BBX is invalid. All requests for subpools 0 - 128 , 238 , 241, 250,and 251 - 255 are mapped in 241 for system tasks. 

^ System task requests for fixed PQA (233 - 235) are mapped to fixed SQA. 

7 GQE queued on job step GQE queue. 


VS1 Storage Subpools (cont'd) 
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< 

c/> 


< 

3 


*8 

o 


Program 

(fixed) 


Maximum 52 partitions 

• 1-15 problem program 

• 1-37 system task 

• Multiple of 64 K in size 

• Begin on 64K boundary 
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Section 3: Supervisor Information 


The information in this section is of interest mainly to the systems 
programmer who is modifying or debugging the VS1 Supervisor. 


Source Publications 


Additional information about the supervisor macro outlines and SVC 
is in OS/VS1 Supervisor Services and Macro Instructions, GC24-5103 
and OS/VS1 Planning and Use Guide, GC24-5090. 
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3-1 



Supervisor Macro Outlines 


Supervisor Macro General Outline 


Symbol 


Macro 

Name 


Parameters 


completion code,[ DUMP]1,STEP] 


EP=symbol 

EPLOC=address of name 
DE=address of list entry 


[, DCB=dcb address] 


[, PARAM= (addresses)[,VL=1 ]] [, ECB=ecb address] 
[,ETXR=exit routine address][,LPMOD=number] 

[, DPMOD=number] [, TASKLIB = ]oblib DCB addr] 

[' TQE= (r§])i' FPREGSA= (tS)) 


ATTACH 
(list form) 


I EP=symbol 1 

EPLOC=address of name | [, DCB=dcb address] 
DE~address of list entry J 

[/ECB^ecb address] [,ETXR=exit routine address] 

[,LPMOD=number] [, DPMOD=number],SF=L 
[, TASKLIB -joblib DCB addr] 

UTgMKi^regsa. {^}, 


ATTACH 

(execute 

form) 


EP=symbol 

EPLOC=address of name 
DE=address of list entry 


, DCB=dcb address] 


f, PARAM= (addresses) [, VL= 1 ]] [, ECB^ecb address] 
[,ETXR=exit routine address] [, LPMOD=number] 
[,DPMOD=number] [,TASKLIB = joblib DCB addr] 

l' TQE= {n©} ll,PPREG5A= fjq§) , 


,MF=(E, rproblem program list addressl ) 

1 0) t 

,SF=(E, [control program list address! ) 

1 05) I 


,MF=(E, [address 1 ),SF=E, [address’! ) 

1 0) t l 05) ) 
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Supervisor Macro Outlines (cont'd) 


CALL 

[entry point name 1 [, (address parameters) [,VL]] 

1 05) i 

[,ID=number] 

CALL 
(list form) 

,(address parameters) [,VL],MF=L 

CALL 

(execute 

form) 

f entry point name 1 [, (address parameters)] 

1 05) i 

[,VL][, ID=number] 

,MF=(E, f problem program list address 1 ) 

1 0) 1 

CHAP 

priority change value ,tcb location address 
/S' 

DELETE 


EP=symbol j 

EPLOC=address of name f 

DE=address of list entry J 

X>EQ 

(qn 

ame addr 

STEP 

SYSTEM 

ess,rname address, [rname length] 

,...)[/ RET=HAVE] 

DEQ 

(list form) 

' 

[qname address], [rname address], [mame length] 

system] ,.. .)[,RET=HAVE],MF=L 

STEP 

DEQ 

(execute 

form) 

[([qname ad 

[system 

f [STEP 
,MF=(E, jc 

dress], [rname address], [rname length] 

)i[,RET=HAVE ] 

'** |,RET=NONE I 

ontrol program list address 1 ) 

0) 1 

DETACH 

tcb location address 

DOM 

f MSG=register 1 

l MSGLIST=address J 

DXR 

regl ,reg2 

ENQ 

(s r 

lame address, rname 

SYSTEM 

STEP J 

address, j” E j 

",RET=TEST 

,RET=USE 

,RET=HAVE 

,RET=CHNG 

j 

[rname length] 
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Supervisor Macro Outlines (cont'd) 
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Supervisor Macro Outlines (cont'd) 


I EC,LV = number,A = address [,SP= 


number] j", BN DRY = f DBLWD jj 


[ EU, LV = number,A = address [,SP = number]J’,BNDRY = |DBLWDjJ 

R, LV=number[, SP=number] 

R,LV=(0) 

VC,LA=address,A=address[,SP=number] £,BNDRY= | DBLWD | j 
^ VU,LA=address,A=address[,SP=number] £,BNDRY= jDBLWDjJ 


GETMAIN 

(list form) j|[EC][,LV=number] 

J [EU] [, LV=number] 
\ [VC] [, LA=address] 
I [VU][,LA=address] 


, A=address] [, S P=number] 


, BNDRY= DBLWD ,MF=L 
PAGE 


GETMAIN 

(execute 

form) 


[EC] [, LV=number] | 

[EU][,LV=number] l [ / A=oddress][,SP=numb-n 
[VC] [, LA=address] / 

[VU] [, LA=address] J 


GTRACE 
(list form) 


,BNDRY= DBLWD ,MF=(E, /control program list address ] 
PAGE 1 (1) ] 

DAT A=address, L NG=number, I D=number [, FI D=number] 

[DATA=address] [, LNG=length] [, FI D=number], MF=L 


ID=value,MF=(E, rparameter list address') ) 

I 0-12) J 

[, DATA=address][,LNG=length][, FID=number] 


f EP=symbol ] 

l EPLOC=address of name J 


,ENTRY=entry point address 


EP=symbol 

EPLOC=address of name 
DE=address Qf list entry 


[,DCB=dcb address] 


[, PARAM=(addresses)] [,VL=1 ] [, I D=number] 

LINK f EP=symbol [,DCB=dcb address],SF=L 

(list form) EPLOC=address of name 
lDE=address of list entry 


Section 3: Supervisor Information 




Page of GC24-5091-5 
Revised September 15, 1976 
By TNL GN24-5525 


Supervisor Macro Outlines (cont'd) 


LINK 

(execute 

form) 

j 

r EP=symbol 1 [, DCB=dcb address] 

EPLOC=address of none 
l DE=address of list entry J 

[, PARAM=(addresses)] [»VL=1 ][, 1 D=number] 

,MF=(E, (problem program list address 1 )*) 

1 o) y 

,SF=(E, f control program list address 1 ) l 

t (15) J ( 

,MF=(E, (address 1 ),SF=(E, ( address 1 ) 

t (1) J 1 05) J J 

LOAD 


EP=symbol j [, DCB=dcb address] 

EPLOC=address of name | 

DE=address of list entry J 

PGOUT 

r* f£?}] 

PGOUT 
(list form) 

L,LA= foddrl 

l 0) i 

PGRLSE 

LA= f oddrl 1 ,HA= (addr21 
l(regl)J l(reg2)l 

PGRLSE 
(list form) 

MF=L[, LA=addrl ] [, HA=addr2] 

PGRLSE 

(execute 

form) 

MF=(E, f listaddr 1 ) f,LA= f oddrl 
l(reg3) 1 | l(regl) 

1 f ,HA= faddr2l] 

[ l( r «g2)|J 

POST 

ecb addressf,completion code] j 

RETURN 

[(regl[,reg2])][,T] ,RC= (number] 
1 (15) } 


SAVE 

(regl (,reg2])(,T][, identifier name] 

SEGWT 

external segment name 

SNAP 


DCB=dcb address[TCB=address][, 1 D=number] 

[,SDATA=(code for control program blocks)] 

[, PDATA=(code for problem program areas)] 

,STORAGE=(starting address,ending address, ...)| 

,LIST=address of list i 

SNAP' 

(list form) 

[DCB=address] [,ID=number] [,SDATA=(code)] 

(,PDATA=(code)] r,STORAGE=(address,address,...)1 ,MF=L 
[,LIST=address I 

SNAP 

(execute 

form) 


DCB=address] [,TCB= jaddressj ] [,ID=number] 

[,PDATA=code] [,SDATA=code] 

,STORAGE=(address,address,...)! 

,UST=address | 

,MF=(E, (control program list address 1 ) 

l 0) J 

SPIE 

[interruption exit address, (interruptions)] j 
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Supervisor Macro Outlines (cont'd) 


SPIE 

(list form) 


[interruption exit address] [, (interruptions)],MF=L 


SPIE 

(execute 

form) 


[interruption exit address] [, (interruptions)] 
,MF=(E, f control program list address 1 ) 

I 0) J 


(0 | /OV [, PARAM=list address] 

l exit address! , CT 


,XCTL= I YES |1 L PURGE= ( QUIESCE ll f,ASYNCH= | YES11 

l no! halt l InoJJ 

-I l NONE J. 


STAE 
(list form) 


[exit address]], PARAM=list address] 


PURGE= [QUIESCE ]1f,ASYNCH= [YES f| ,MF=L 
HALT—IIL i NO 1 

NONE 


STAE 

(execute 

form) 


f 0 1 j, OV I [, PARAM=I ist address] 

1 exit address } j , CJ | 

,XCTL=(YESll PPURGE= [ QUIESCE |1 [,ASYNCH= 
l NO J | | HALT 

l NONE 

,MF=(E, [ remote list address 1 ) 

1 0) I 


REAL[,timer completion exit address] 
TASK [, timer completion exit address] 
WAIT 


’, DINTVL=address 
, BI NTVL=address 
, TUI NTVL=address 
,TOD=address 


{Sri 


\ [,REPLACE=YES] 


= (value) 
laddr J 


[(BIN,addr) ] 

TEST= (DEC,addr) 
l (Ml C,addr) J 

, CANCEL=YES ((BIN,addr) 

,CANCEL=YES, TEST= |(DEC,addr) 
l(MIC,addr), 


ECB-addr (YES) 

EXIT=addr[, SVAREA= ( J 5 

[, ERRET=addr] 


e 1 : I D=ALL can be used with CANCEL if TEST is not specified; 

ID=ALL is defaulted if CANCEL appears alone. ALL is invalid 
for all other uses of ID. 
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Supervisor Macro Outlines (cont'd) 



WAIT [number of events,] I ECB=address 

l ECBLIST=address 

WAITR [number of events, ] f ECB=address 

l ECBUST-address 


WTL * message*, MF=L 

(list form) 





Supervisor Macro Outlines (cont'd) 


WTL 

(execute 

form) 

MF=(E, (control program list address! ) 

t (1) t 

WTO 

(‘message 1 1 

| (‘text’[, line type]),. 



WTO 
(list form) 

{('text'[, line type]),. ..| 
l* message* J 

, MF=L * ^ 

WTO 

(execute 

form) 

MF=(E, f control program list address)) 

l 0) ' 

WTOR 

‘message’,reply address,length of reply 

j,DE$C^umb*r] 

WTOR 
(list form) 

'message', [reply address], [length of reply] 

, [ecb address][,ROUT<&&>^ ^1|| 

WTOR 

(execute 

form) 

, [reply address], [length of reply], [ecb address] 

,MF=(E, {control program list address] ) 

1 0) J 

XCTL 

[(regl [,reg2])], | EP=symbol l 

{ EPLOC=address of name] 
l DE=address of list entry j 

[, DCB=dcb address] 

XCTL 
(list form) 


EP=symbol [, DCB=dcb address],SF=L 

EPLOC=address of name 
.DE=address of list entry J 

XCTL 

(execute 

form) 


(regl [,reg2])] f,EP=symbol l 

|, EPLOC=address of name l 
l, DE=address of list entry ] 

, DCB=dcb address] 

,MF=(E, ( problem program list address 1 ) 

l 0) > 

,SF=(E, [control program list address 1 ) 

1 05) 1 

,,MF=(E [address 1 ) SF=(E, ("address 1) 

1 (1) J l 05) J 


Note: Shaded area for Multiple Console Support. 
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Supervisor Macro Parameter Notation 


Abbreviation 


Meaning 

Sym 


Any symbol valid in the assembler language. 

Deg Dig 


Any decimal digits, up to the value indicated in 
the associated macro instruction description. 

If both Sym and Dec Dig are checked, an 
absolute expression is also allowed. 

Register 


A general register, always coded within 
parentheses, as follows: 


(2-12)- 

one of the general registers 2 through 12, 
previously loaded with the right-adjusted value 
or address indicated in the macro-instruction 
description. The unused high-order bits must be 
set to zero. The register may be designated 
symbolically or with an absolute expression. 


<n- 

general register 1, previously loaded as 
indicated above. Designate the register as (1) 
only. 


(0)- 

general register 0, previously loaded as 
indicated above . Designate the register as (0) 
only. 

RX type 


Any address that is valid in an RX-type 
instruction (e.g., LA) may be designated. 

A - Type 


Any address that may be written in an A-type 

Adcon Type 


address constant may be designated. 
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Summary of Supervisor Macro Operands 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS 1 

Sym 

Dec 

Dig 

Register 

RX- 

type 

A-type 
Ad con 
type 

(2- 

12) 

0) 

(0) 

ABEND 

completion code 

S 

S 

S 

s 




DUMP 

written as shown 

STEP 

written as shown 

ATTACH ! 

DCB 



SE 



E 

SL 

DE= 



SE 



E 

SL 

DPMOD= 

SLE 

SLE 

SE 





ECB= 



SE 



E 

SL 

EP= 

SLE 







EPLOC= 



SE 



E 

SL 

ETXR= 



SE 



E 

SL 

FPKEGSA= 

YES or NO 

LPMOD= 

SLE 

SLE 

SE 





PARAM= 



SE 



E 

S 

TQE= 

YES or NO 

VL=1 

written as shown 

CALL 

entry point name 

SE 







address parameters 



SE 



E 

SL 

VL 

written as shown 

ID= 

SE 

SE 






CHAP 

. 

priority change value 

S 

S 

S 


s 



tcb location address 



S 

s 


S 


DELETE 

DE= 



S 


s 

S 


EP= 

S 







EPLOC= 



S 


s 

s 



S=standard; L=! ist; E=execute 
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Summary of Supervisor Macro Operands (cont'd) 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS 

Sym 

Dec 

Dig 

Register 

RX- 

type 

A-type 
Ad con 
type 

(2- 

12) 

0) 

(0) 

DEQ 

qname address 



SE 



E 

SL 

rname address 



SE 



E 

SL 

rname length 

SLE 

SLE 

SE 





STEP or SYSTEM 

written as shown 

RET=HAVE 

written as shown 

RET=NONE 

written as shown (E form only) 

DETACH 

tcb location address 

f 

H 

■ 

3 


S 


DOM 

MSG= 



r 

s 




MSGL1ST= 

S 


s 

s 


S 


DXR 

regl 

s 

s 






reg2 

s 

s 






ENQ 

qname address 



SE 



E 

SL 

rname address 



SE 



E 

SL 

E or S 

written as shown 

rname length 

SLE 

SLE 

SE 





STEP or SYSTEM 

written as shown 

RET= 

TEST, USE, CHNG, or HAVE 

RET=NONE 

written as shown (E form only) 

FREEMAIN 

E, R or V 

written as shown 

A=(with E, L, or V) 



SE 



E 

SL 

A=(with R) 



S 

s 


S 


LV-(with E) 

SLE 

SLE 

SE 





LV=(with R) 

S 

S 

S 


s 



SP=(with E or V) 

SLE 

SLE 

SE 





SP=(with R) 

S 

S 

S 


s 



GETMAIN 

EC, EU, VC, or VU 

refer to macro description 

A= 



SE 



E 

SL 

BNDRY= 

DBLWD or PAGE j 

LA= 



SE 



E 

SL 
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Summary of Supervisor Macro Operands (cont'd) 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS | 



Register 


A-type 

type 


Dig 

(2- 

12) 

0) 

(0) 

(15) 

type 

GETMAIN 

(cont’d) 

LV=(with E) 

SLE 

SLE 

SE 






LV(with R) 

S 

s 

S 


s 




SP=(with E or V) 

SLE 

SLE 

SE 






SP=(with R) 

S 

S 

S 


s 




GTRACE 

DATA= 



S 




S 

SLE 

LNG= 

SLE 

[SUE 

SLE 






FID= 

SLE 


SLE 






ID= 

SE 

SE 







IDENTIFY 

ENTRY= 



S 

s 



S 


EP= 

S 








EPLOC= 



S 


s 


s 


LINK 

DCB= 



SE 




E 

SL 

DE= 



SE 




E 

SL 

EP= 

SLE 








EPLOC= 



SE 




E 

SL 

ID= 

SE 

SE 







PARAM= 



SE 




E 

S 

VL=1 

written as shown | 

LOAD 

DCB= 



S 

s 



S 


DE= 



S 


s 


S 


EP= 

S 








EPLOC= 



S 


s 


s 


PGOUT 

A= 

s 

S 

S 

s 




S 

EA= 

s 

s 

S 



S 


S 

LA= 

L 

L 

L 

L 




L 

PGRLSE 

LA= 



SE 


SE 



SLE 

HA= 



SE 

SE 




SLE 

list addr= 







E 


reg 3= 



E 






POST 

ecb address 



S 

S 



s 


completion code 

s 

S 

S 


S 
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| Summary of Supervisor Macro Operands (cont'd) 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS 

Sym 

Dec 

Dig 

Re 

gister 

RX- 

type 

A-type 
Ad con 
type 

(2- 

12) 

(1) 

(0) 

RETURN 

(regl ,reg2) 


S 






T 

written as shown 

RC= 

S 

S 

or (15) 

SAVE 

(regl ,reg2) 


S 




_ 


T 

written as shown 

identifier name 

character string or * 

SEGWT 

external segment name 

S 







SNAP 

DCB= 



SE 



E 

SL 

ID= 

SLE 

SLE 

SE 





LIST= 



SE 



E 

SL 

PDATA 

refer to macro description 

SDATA 

refer to macro description 

STORAGE 



SE 



E 

SL 

TCB= 



SE 



E 

S 

SPIE 

interruption exit address 



SE 



E 

SL 

interruptions 


SLE 






STIMER 

REAL, TASK or WAIT 

written as shown 

timer completion exit addr 



S 


s 

s 


BINTVL= 



S 

s 


S 


DINTVL= 



S 

s 


S 


TOD= 



S 

s 


S 


TUINTVL= 



S 

s 


S 
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Summary of Supervisor Macro Operands (cont'd) 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS I 

Sym 

Dec 

Dig 

Register 

RX- 

type 

A-type 
Ad con 
type 

(2- 

12) 

") 

(0) 

STIMERE 

1D=addr 

SE 


SE 



SE 


BINTVL=addr 

SE 


SE 



SE 


DINTVL=addr 

SE 


SE 



SE 


MICVL=addr 

SE 


SE 



SE 


1 Devalue 


SLE 






BINTVL=value 


SLE 






DlNTVL=value 


SLE 






MICVL=value 


SLE 






ID=ALL 

written as shown (S form only) 

REPLACE=YES 

written as shown (SE forms only) 

TEST=( BIN DEC MIC 
,addr) 

S 


S 



S 


CANCEL=YES 

written as shown (S form only) 

ECB=addr 

SLE 





SLE 


EXIT=addr 

SLE 


S LE 



SLE 


SVAREA= 

YES or NO 

ERRET=addr 


3 



SE 


TIME 

DEC or BIN or TU 

written as shown 

MIC 

written as shown 

address 



J 


s 

S 


TTIMER 

CANCEL 

written as shown 

TU 

written as shown 
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Summary of Supervisor Macro Operands (cont'd) 


MACRO 

INSTRUCTION 

OPERANDS 

WRITTEN AS ! 

Sym 

Deg 

Dig 

Register 

RX- 

type 

A-type 
Ad con 
type 

(2- 

12) 

0) 

(0) 

WAIT 

WAITR 

number of events 

S 

S 

S 


s 



ECB= 



S 

s 


S 


ECBLIST= 



s 

s 


S 


WTL 

message 

any message within apostrophes 

WTO 

message 

any message within apostrophes 

text 

any text within apostrophes 

line type 

C,L,D,DE, or E 

ROUTCDE= 


SL 






DESC= 


SL 






WTOR 

message 

any message within apostrophes 

reply address 



“ 



E 

SL 

length of reply 

SLE 

SLE 

SE 





ecb address 



SE 



E 

SL 

ROUTCDE= 


ij 






DESC= 


SL 






XCTL 

(regl ,reg2) 


SE 




E 

S 

DCB= 



SE 



E 

SL 

DE= 



SE 



E 

SL 

EP= 

SLE 







EPLOC= 



SE 



E 

SL 
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Programming Conventions for SVC Routines 


Conventions 

Type 1 

Type 2 

Type 3 

Type 4 

Part of resident 
control program 

Yes 

Yes 

No 

No 

Size of routine 

Any 

Any 

<2048 bytes 

Each load 
module <2048 
bytes 

Reenterable routine 

Optional, but 
must be 
serially 
reusable 

Yes 

Yes 

Yes 

May allow I/O and 
external inter¬ 
ruptions 

No 

Yes 

Yes 

Yes 

Number of routine 

Numbers assigned to your SVC routines should 
be in descending order from 255 through 200 

Name of routine 

IGCnnn 

IGCnnn 

IGCOOnnn 

IGCssnnn 

Register contents 
at entry time 

Registers 3, 4, 5, and 14 contain communication 
pointers; registers 0, 1 , and 15 are parameter 
registers 

May contain reloca¬ 
table data 

Yes 

Yes 

No 

No 

Can supervisor re¬ 
quest block (SVRB) 
be extended 

Not 

applicable 

Yes 

Yes 

Yes 

May issue WAIT 
macro instruction 

No 

Yes 

Yes 

Yes 

May issue XCTL 
macro instruction 

No 

No 

No 

Yes 

May issue SVC s 

No 

Yes 

Yes 

Yes 

Exit from SVC Routin 

e Branch using return register 14 

Method of abnormal 
termination 

Use resident 
abnormal 
termination 
routine 

Use ABEND 
macro instruction or 
resident abnormal 
termination routine 
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SVC Register Contents 


DEC (hex) 
No. 

Type 

M “ r ° 

Register 0 

Register 1 

0(0) 

' 

EXCP 


IOB address 

0(0) 

1 

XDAP 



1(1) 

1 

WAIT 

Event count 

ECB address or 2's complement 
of ECB list address 

1(1) 

1 

WAITR 

2's complement of event 
count 

ECB address or 2's complement 
of ECB list address 

1(1) 

1 

PRTOV 



2(2) 

1 

POST 

Completion code 

ECB address or parm list address 
with high-order bit on 

3(3) 

1 

EXIT 



4(4) 

1 

GETMAIN 


Parameter list address 

5(5) 

1 

FREEMAIN 


Parameter list address 

6(6) 

II 

LINK 



7(7) 

II 

XCTL 



8(8) 

II 

LOAD 

Address of entry point 
address 

DCB address 

9(9) 

11 

DELETE 

Address of program name 


10(A) 

1 

GETMAIN 

or 

FREEMAIN 

Subpool number (byte 0), 
length (bytes 1-3) 

If negative, indicates GETMAIN. 
If positive, contains address 
of area to be freed 

11(B) 

1 

TIME 

Pointer to a doubleword 
to store TOD if MIC 
specified 

Time units code 

12(C) 

II 

SYNCH 



13(D) 

IV 

ABEND 


Completion code 

14(E) 

II 

SPIE 


PICA address 

15(F) 

1 

ERREXCP 


Address of request queue 
element 

16(10) 

III 

PURGE 



17(11), 

III 

RESTORE 


IQB chain address 

18(12) 

II 

BLDL 

Address of build list 

DCB address 

18(12) 

II 

FIND 



19(13) 

IV 

OPEN 


Address of parameter 1 ist of 

DCB addresses 

20(14) 

IV 

CLOSE 


Address of parameter 1 ist of 

DCB addresses 

21(15) 

III 

STOW 

Parameter list address 

DCB address 


3-18 0S/VS1 Programmer’s Reference Digest 





Page of GC24-5091-5 
Revised September 15, 1976 
By TNL GN24-5525 


SVC Register Contents (cont'd) 


Dec (hex) 
No. 

Type 

Macro 

Register 0 

Register 1 

22(16) 

IV 

OPEN 

TYPE=J 


Address of parameter list of 
DCB addresses 

23(17) 

IV 

CLOSE 

TYPE=T 


Address of parameter list of 
DCB addresses 

24(18) 

III 

DEVTYPE 


ddname address 

25(19) 

III 

TRKBAL 


DCB address 

26(1 A) 

IV 

CATALOG 


Parameter list address 

26(1 A) 

IV 

INDEX 


Parameter list address 

26(1 A) 

IV 

LOCATE 


Parameter list address 

27(1 B) 

IV 

OBTAIN 


Parameter list address 

28(1 C) 

IV 

CVOL 



29(1 D) 

IV 

SCRATCH 

UCB address 

Parameter list address 

30(1 E) 

IV 

RENAME 

UCB address 

Parameter 1 ist address 

31(1 F) 

IV 

FEOV 


DCB address 

32(20) 

IV 

ALLOC 


Address of UCB list 

33(21) 

III 

IOHALT 


UCB address 

34(22) 

IV 

MGCR 
(MAST CMD 
EXCP) 



34(22) 

IV 

QEDIT 



35(23) 

IV 

WTO 


Message address 

35(23) 

IV 

WTOR 


Message address 

36(24) 

IV 

WTL 


Message address 

37(25) 

II 

SEGLD 


Segment name addr 

37(25) 

II 

SEGWT 


Segment name addr 

38(26) 


Reserved 


39(27) 

III 

LABEL 


Parameter list address 

40(28) 

11 

EXTRACT 


Parameter list address 

41(29) 

11 

IDENTIFY 

Entry point name address 

Size of work area in 
doublewords 

42(2A) 

II 

ATTACH 


May contain user parm list 
address 

43(2B) 

III 

CIRB 

Entry point address 

Size of work area in 
doublewords 
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SVC Register Contents (cont'd) 


Dec (hex) 
No. 

Type 

Macro 

Register 0 

Register 1 

44(2C) 

III 

CHAP 

+lncrease priority 
-Decrease priority 

TCB address 

45(2D) 

II 

OVLYBRCH 



46(2 E) 

1 

TTIMER 


1: Cancel 

47 (2F) 

II 

STIMER 

Exit address (Option 
flags in high order byte) 

Timer interval address 

48(30) 

II 

DEQ 


DEQ parameter list address 

49(31) 


Reserved 


50(32) 


Reserved 


51(33) 

IV 

SNAP 


Parameter list address 

52(34) 

IV 

RESTART 


DCB address 

53(35) 

III 

RELEX 

Key address 

DCB address 

54(36) 

II 

DISABLE 



55(37) 

IV 

EOV 

IOB address 

DCB address 

56(38) 

II 

ENQ 


ENQ parameter list address 

57(39) 

III 

FREEDBUF 

DECB address 

DCB address 

58 (3 A) 

II 

RELBUF 


DCB address 

58 (3A) 

II 

REQBUF 


DCB address 

59(3B) 

IV 

OLTEP 



60(3C) 

III 

STAE 

0 Create SCB 

4 Cancel SCB 

8 Overlay SCB 

Parameter list address 

61 (3D) 


Reserved 


62(3 E) 

III 

DETACH 


TCB address location 

63(3F) 

IV 

CHKPT 


DCB address 

64(40) 

111 

RDJFCB 


Address of parameter 1 ist of 
DCB addresses 

65(41) 


Reserved 


66(42) 

■ IV 

BTAMTEST 



67(43) 

11 

ENDREADY 



68(44) 

IV 

SYNADAF 

Same as reg 0 on entry 
to SYNAD 

Same as reg 1 on entry to 
SYNAD 

68(44) 

IV 

SYNADRLS 



69(45) 

III 

BSP 


DCB address 

70(46) 

II 

GSERV 


Parameter list address 
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SVC Register Contents (cont'd) 


Dec (hex) 
No. 

Type 

Macro 

Register 0 

Register 1 

71(47) 

IV 

RLSEBFR 


Parameter list address 

71(47) 

IV 

ASGNBRF 


Parameter list address 

71(47) 

IV 

BUFINQ 


Parameter list address 

72(48) 

IV 

CHATR 


Parameter list address 

73(49) 

IV 

SPAR 


Parameter 1 ist address 

74(4A) 

IV 

DAR 


Parameter list address 

75(4B) 

III 

DQUEUE 


Parameter list address 

76(4C) 

IV 

IFBSTAT 



77(4D) 

IV 

QTAMTEST 



78 (4E) 

IV 

LSPACE 



79(4F) 

1 

STATUS 



80(50) 


Reserved 


81(51) 

IV 

SETDEV 


Parameter list address 

81(51) 

IV 

SETPRT 



82(52) 

IV 

DAS DR 



83(53) 

III 

SMFWTM 


Message address 

84(54) 

1 

GRAPHICS 



85(55) 

IV 

DDRSWAP 



86(56) 

IV 

ATLAS 


Parameter list address 

87(57) 

III 

DOM 


DOM message Id if reg 0=0 

A pointer to a list of DOM 
message Ids if reg 0 negative. 

88(58) 

III 

MOD88 

Routine Code 

DCB address 

89(59) 

III 

EMSRV 


Parameter list address 

90(5A) 

IV 

XQMNGR 

Address of 1 ist of ECB/ 
IOB pointers (optional) 

QMPA address 

91 (5B) 

III 

VOLSTAT 

DCB address 

Zero: Issued by CLOSE 
Non-zero: issued by EOV 

92(5C) - 97(61) 

Reserved 


98(62) 

IV 

PROTECT 



102(66) 

1 

AQCTL 


Parameter list address 

103(67) 

III 

XLATE 



104(68) 

IV 

TOPCTL 



105(69) 

III 

IMG LIB 

0=OPEN SYS1.IMAGELI 
DCB addr=CLOSE 

SYS 1.1 MAGE LIB 

B 

106(6A) 


Reserved 


107(6B) 

! 

MODES ET 


Parameter list address 

108(6C) 

IV 

ISOLATE 
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SVC Register Contents (cont'd) 


DEC (hex) 
No. 

Type 

Macro 

Register 0 

Register 1 

109(6D) 

li 

Extended 

SVC Router 
(ESR) macros 

Parameters to ESR 

Parameters to ESR 

110(6E) 

Reserved 


111 (6F) 

II 

JECS macros 


Parameter List address 

112(70) 

1 

PGRLSE 

Low address 

High address 

113(71) 

(Note) 

1 

SIR macros 

ECB address or 

TCB address 

Parameter list address or begin 
address for request 

114(72) 

1 

EXCPVR 

If 0, EXCP for paging 
supervisor; If 4, EXCP 
for subsystem 

IOB address 

115(73) 

1 

BLKPAGE 



116(74) 

1 

Extended 

SVC Router 
(ESR) macros 

Parameters to ESR 

Parameters to ESR 

117(75) 

II 

DEBCHK 

Function 

jDCB 

118(76) 

1 

DSS 

DSSAT 


119(77) 

1 

TESTAUTH 



122(7 A) 

II 

Extended SVC 
Router (ESR) 

Parameters to ESR 

Parameters to ESR 

124(7C) 

III 

TPIO 

- _ i 

Function code + 

ACB address 

Address of Work 

Element 

125(7D) 

1 

EVENTS 

Flags + entry addr in 
EVENTS table, or 

ECB addr, or 0 

EVENTS table addr 

126 (7E) 

II 



Address of request 
block 

127(7F) 

11 

DIS macros 


Parameter List addr 

129(81) 

II 

DIS macros 


Parameter List addr 


| Note: Register 15 may contain zero or an address. See PGOUT macro. 
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SVC Directory 


Dec. (hex) 
No. 

Type 

Macro 

Module Name 

0 (0) 

1 

EXCP 

IEAIOSOO 

1 0) 

1 

WAIT 

IEAAWT 

2 (2) 

1 

POST 

IEAAPT 

3 (3) 

1 

EXIT 

IEAATA00 

4 (4) 

1 

GETMAIN 

IEAAMS00 

5 (5) 

1 

FREEMAIN 

IEAAMS00 

6 (6) 

2 

LINK 

IEAATC00 

7 (7) 

2 

XCTL 

IEAATC00 

8 (8) 

2 

LOAD 

IEAATC00 

9 (9) 

2 

DELETE 

IEAJDL00 

10(A) 

1 

REGMAIN 

IEAAMS00 

11(B) 

1 

TIME 

IEA0RT01 

12(C) 

2 

SYNCH 

IEAASY00 

13(D) 

4 

ABEND 

IEANTM00- 

IEANTM0M 

14(E) 

2 

SPIE 

IEAAPX00 

15(F) 

1 

ERREXCP 

IEAIOSOO 

16(10) 

3 

PURGE 

IECIPRL2 

17(11) 

3 

RESTORE 

IGC0001G 

18(12) 

2 

BLDL/FIND 

IGC018 

19(13) 

4 

OPEN 

IGC00011 

20(14) 

4 

CLOSE 

IGC00020 

21(15) 

3 

STOW 

IGC0002A 

22(16) 

4 

OPEN 

TYPE=J 

IGC0002B 

23(17) 

4 

CLOSE 

TYPE=T 

IGC0002C 

24(18) 

3 

DEVTYPE 

IGC0002D 

25(19) 

3 

TRKBAL 

IGC0002E 

26(1 A) 

4 

CATALOG 

IGC0002F 

26(1 A) 

4 

INDEX 

IGC0002F 
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SVC Directory (cont'd) 


Dec. (hex) 
No. 

Type 

Macro 

Module Name 

26(1 A) 

4 

LOCATE 

IGC0002F 

27(1 B) 

4 

OBTAIN 

IGC0002G 

28(1 C) 

4 

CVOL 

IGC0002H 

29(1 D) 

4 

SCRATCH 

IGC0002I 

30(1 E) 

4 

RENAME 

IGC00030 

31 (IF) 

4 

FEOV 

IGC0003A 

32(20) 

4 

ALLOC 

IGC0003B 

33(21) 

3 

IOHALT 

IGC0003C 

34(22) 

4 

MGCR 

IEE0303D 

34(22) 

4 

QEDiT 

IEE0303D 

35(23) 

4 

WTO 

IEEMFWTO 

35(23) 

4 

WTOR 

IEEMFWTO 

36(24) 

4 

WTL 

IEE0303F 

37(25) 

2 

SEGLD 

IEWSUOVR 

37(25) 

2 

SEGWT 

IEWSUOVR 

39(27) 

3 

LABEL 

1GC00031 

40(28) 

2 

EXTRACT 

IEABXR00 

41(29) 

2 

IDENTIFY 

IEAAID00 

42(2A) 

2 

ATTACH 

IEAQAT 

43(2B) 

3 

CIRB 

IEAAEF00 

44(2 C) 

3 

CHAP 

IEAQTB00 

45(2 D) 

2 

OYLYBRCH 

IEWSVOVR 

46(2 E) 

1 

TTIMER 

IEA0ST01 

47(2F) 

2 

STIMER 

IEA0ST01 

48(30) 

2 

DEQ 

IEAGENQ1 

51(33) 

4 

SNAP 

. 

IEAAAD00- 

1EAA AD05 and 

1EAAADOA- 

1EAAADOL 

52(34) 

4 

RESTART 

IEFVSMBR 

53(35) 

3 

RELEX 

1GC0005C 
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SVC Directory (cont'd) 


Dec. (hex) 
No. 

Type 

Macro 

Module Name 

54(36) 

2 

DISABLE 

IGC054 

55(37) 

4 

EOV 

IGC0005E 

56(38) 

2 

ENQ 

IEAGENQ1 

57(39) 

3 

FREEDBUF 

IGC0005G 

58 (3 A) 

2 

RELBUF 

IGC058 

58(3A) 

2 

REQBUF 

IGC058 

59(3B) 

4 

OLTEP 

IGC0005I 

60 (3C) 

3 

STAE 

IEAAST00 

62(3E) 

3 

DETACH 

IEAGED02 

63(3F) 

4 

CHKPT 

IHJACPOO 

64(40) 

3 

RDJFCB 

1GC0006D 

66(42) 

4 

BTAMTEST 

IGC0006E 

67(43) 

2 

ENDREADY 

IGC0010C 

68(44) 

4 

SYNADAF 

IGC0006H 

68(44) 

4 

SYNADRLS 

IGC0006H 

69(45) 

3 

BSP 

IGC0006I 

70(46) 

2 

GSERV 

IGC070 

71(47) 

4 

RLSEBFR 

IGC0007A 

71(47) 

4 

ASGNBRF 

1GC0007A 

71(47) 

4 

BUFINQ 

IGC0007A 

72(48) 

4 

CHATR 

IEECMCTR 

73(49) 

4 

SPAR 

IGC0007C 

74 (4 A) 

4 

DAR 

IGC0007D 

75(4B) 

3 

DQUEUE 

IGC0007E 

76(4C) 

77 (4D) 

3 

4 

IFBSTAT 

QTAMTEST 

IFBSTAT 

78(4E) 

4 

DSCAN 

IGC0007H 

79(4F) 

1 

STATUS 

IEAQSETS 

81(51) 

4 

SETPRT 

IGC0008A 

81(51) 

4 

SETDEV 

IGC0008A 

82(52) 

4 

DASDR 

IGC0008B 

83(53) 

3 

SMFWTM 

IEESMF8C 

84(54) 

1 

GRAPHICS 

IGC084 

85(55) 

4 

DDRSWAP 

IGC0008E 
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SVC Directory (cont'd) 


Dec. (hex) 
No. 

Type 

Macro 

Module Name 

86(56) 

4 

ATLAS 

1GC0008F 

87(57) 

3 

DOM 

IEECXDOM 

88(58) 

3 

MOD88 

IGC0008H 

89(59) 

3 

EMSRV 

IGC00081 

90 (5 A) 

4 

XQMNGR 

IEFXQM00 

91(5B) 

3 

VOLSTAT 

IGC0009A 

98(62) 

4 

PROTECT 


102(66) 

1 

AQCTL 

IEDQEB 

103(67) 

3 

XLATE 

IGG0010C 

104(68) 

4 

TOPCTL 

IEDQEB 

105(69) 

3 

IMGLIB 

IGC0010E 

107(6B) 

1 

MODESET 

IEAVMODE 

108(6C) 

4 

ISOLATE 


109(6D) 

2 

ESR (extended 
SVC router) 
macros 

IGC116 

111 (6F) 

2 

JECS macros 

IFGAZ016 

112(70) 

1 

PGRLSE 

IEAAIH00 

113(71) 

1 

SIR macros 

IEAAIH00 

114(72) 

1 

EXCPVR 

IEAIOS00 

115(73) 

1 

BLKPAGE 


116(74) 

1 

ESR macros 

IGC116 

117(75) 

2 

DEBCHK 

IFGDEBCHK 

118(76) 

1 

AT 

IEAAIH00 

119(77) 

1 

TESTAUTH 

IEAVTEST 

122(7A) 

2 

ESR macros 

IGC116 

124(7C) 

3 

TPIO 

ISTAP21 

125(7D) 

1 

EVENTS 

IEAAWT 

126 (7 E) 

2 


ICBSVC IGC126 

127(7F) 

2 

DIS macros 


129(81) 

2 

DIS macros 
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Load Module Control 


Explanation of Style 

Words in all capitals are coded as shown; 
appropriate values are to be substituted for 
words in lower case letters. Brackets,[ ], 
enclose operands that may be used or 
omitted as required; stacking within braces, 
{ }, is used to indicate a choice of 

j operands or values. Underlining,_, 

indicates a default value. 


Footnotes: 

* In full-word on full-word boundary 
** In double-word on double-word boundary 
+ Left justified in double-word on byte 
boundary 

o Multiple of eight; value given in bytes 


Pass control 
and initiate 
execution 

CALL 

entry point name [, (address parameter [,address parameter],.. .)(,VL] ] 

[, |D=0 to 65535] 

Dynamically 
load and 
initiate 
execution 

LINK 

j EP=entry point name 1 

< EPLOC=address of entry point name + > [, DCB=dcb address] 

1 DE=address of list entry J 

[,PARAM=(address parameter [,address parameter],...) [,VL=1 ] ] 

[, ID=0 to 65535] 

control 

XCTL 

(■ EP=entry point name 1 

[range of registers to be restored], 1 EPLOC=address of entry point name t 

1 DE=address of list entry J 

[, DCB=dcb address] 

Dynamically 

load 

LOAD 

f EP=entry point name ^ 

< EPLOC=address of entry point name + ) [,DC8=dcb address] 

1 DE=address of list entry 1 

Delete 

DELETE 

j EP=entry point name [ 

< EPLOC=address of entry point name + ) 

1 DE=address of list entry J 

Identify 
embedded 
entry point 

IDENTIFY 

j EP=entry point name 1, ENTRY=entry point address 

|EPLOC=address of entry point name+J 

Load 

overlay 

segment 

SEGWT 

external segment name 
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Synchronization 


Wai t for 
;event 

WAIT 

[number of events, J f ECB=ecb address 1 

( k ECBLIST=address of list of ecb addresses* J 

Wait fat event 
white tower 
priority task 
is executed 

WAITR 

[number of events, ]J ECB=ecb address 1 

i^ECBLIST=address of list of ecb addresses* J 

Post event 
completion 

POST 

ecb address [,completion code] 

Request 
control of 
serially 
reusable 
resource 

ENQ 


(qname address, 

~,RET=TEST 
,RET=USE 
,RET=HAVE 
,REt=CHNG 

rname address, FeI, [rname length], ("SYSTEM] ,...) 

l?i LHE I 

serially 

reusable 

DEQ 

(qname address, rna 

[,RET=HAVE] 

me address, [rname length], [" STEP 1,...) 

L SYSTEM J 

E means exclusive control ~) f , . 

S means shared control J e au * IS 

SYSTEM means resource used by more than one job 
STEP means resource used by issuing job 

Set interval 

: 

STIMER 

’ 

I 

REAL, [address of interval end routine] 1 

TASK, [address of interval end routine] ) 

w WAIT J 

r , DINTVL=address of decimal interval** 'l 

, BINTVL=address of binary interval in seconds* l 

, TUI NTVL-address of binary interval in timer units* f 
, TOD=address of time-of-day of interval end** J 

Test interval 
tinier 

TTIMER 

[CANCEL] [,TU] 

TIME AND TIME INTERVALS FOR TTIMER AND STIMER 

Decimal (DINTVL operands); Binary in seconds (BINTVL operands): 

Eight unpacked decimal digits in format Unsigned 32-bit binary number in a full-word on 

HHMMSSth full-word boundary; least significant bit has a 

HH = hours in 24-hour clock value of 0.01 second 

MM -- minutes 

SS = seconds Binary in timer units (TU or TUINTVL operands): 

t = tenths of seconds Unsigned 32-bit binary number in a full-word on 

h - hundredths of seconds full-word boundary; least significant bit has a 

value of 1 timer unit (1 timer unit = 26 micro¬ 
seconds) 


3-28 OS/VS 1 Programmer’s Reference Digest 





Synchronization (cont'd) 



TIME INTERVALS FOR STIMERS 


Decimal (DINTVL operand): 

Eight unpacked decimal digits in format HHMMSSth 
HH = hours in 24-hour clock 
MM = minutes 
SS = seconds 
t = tenths of seconds 
h = hundredths of seconds 


Binary irt seconds (BINTVL operand): 

31-bit positive binary number in a full-word on 
full-word boundary; least significant bit has a 
value of 0.01 second 

Binary in microseconds (MIGVL operand): 

Unsigned 64-bit binary number in a double-word 
on a double-word boundary. Bit 51 is the low 
order digit of the interval value. 
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Program Interrupt Control 

(see explanation of style - page 3-27) 


[interruption exit routine address] 

[,(interruption type[,interruption type],, 


INTERRUPTION TYPES FOR SPIE 


1 Operation No 

2 Privileged operation No 

3 Execute No 

4 Protection No 

5 Addressing No 

6 Specification No 

7 Data No 

8 Fixed-point overflow Yes 

CONTROL BLOCKS 

Event control block (ECB): 

0 1 2 _31 bits 

| W | C jcompletion codej 

W = wait flag 
C = completion flag 


9 Fixed-point divide No 

10 Decimal overflow Yes 

11 Decimal divide No 

12 Exponent overflow No 

13 Exponent underflow Yes 

14 Significance Yes 

15 Floating-point divide No 


Program interruption control area (PICA): 


1— 

1 pro- 


0000 1 gram 

exit routine interruption 

[ mask 

address mask 

Program interrupts 

>n element (PIE): 

0 1 

2 3 bytes 


0 

| PICA address 

4 

Old Program Status Word 

8 

after interruption 

12 

Register 14 

16 

Register 15 

20 

Register 0 

24 

Register 1 

28 

bvtes 

Register 2 
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General Services 

(see explanation of style - page 3-27) 


Delete 
message (s) 
from 
display 

DOM 

iMSG=register containing 24-bit, right-justified message number ) 

/MSGLIST=address of list of fullwords, each a 24-bit, right-justified [ 

/ identification number of message to be deleted l 

Write to 
operator 

WTO 

f ’message' 1 

1 ('text'j,line typej),...J 
[, ROUT CD E=(number [, number] ,...)] 

[, DESC=numberj 

Write to 
operator 
and wait 
for reply 

WTOR 

'message 1 ,address of reply area, length of reply,ecb address 

[,ROUTCDE=(number [,number] ,...)] [, DE$C=message descriptor code(s 

Write to 
log 

WTL 

'message' 

Divide 
extended 
precision 
floating 
point number 

DXR 


register containing dividend,register containing divisor 

Only registers 0 and 4 can be used; 
they may be specified in either order. 


Get time 
and date 

TIME 


" DEC 

BIN 

TU 

MIC, address 



TIME FOR TIME 


Decimal (DEC operand): 

Eight packed decimal digits in format 
HHMMSSth 

HH = hours in 24-hour clock 
MM = minutes 
SS = seconds 
t = tenths of seconds 
h = hundredths of seconds 

Binary in microseconds (MIC operand): 

Unsigned 64-bit binary number in a double-word on a 
double-word boundary. Bit 51 is the low order digit 
of the interval value. 


Binary in seconds (BIN operand): 

Unsigned 32-bit binary number in a full-word on full- 
word boundary; least significant bit has a value of 
0.01 second 

Binary in timer units (TU operand): 

Unsigned 32-bit binary number in a full-word on full- 
word bondary; least significant bit has a value of 1 
timer unit (1 timer unit = 26 micro-seconds) 
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General Services (cont'd) - Termination 


(see explanation of style - page 3-27) 


Save 

register 

contents 


(range of registers to be stpred) |,T) |, identifier] 


In SAVE, T means: save 
registers 14 and 15. 


Pomp 

storage 

and continue 


DCB=address of data control block [, TC8=address of TCB address*] 
[,ID=1 to 127] 


(ALL 

NUC 

[,SDATA=( / TRT 
]CB 


,ALL 

,NUC 


f all 

psw I 

j REGS l 

[, PDATA=( \ SAor SAH ( 

JPA or LPA or ALLPA 
SPLS 


,ALL 

,PSW 

,REGS 

, SA or , SAH 

JPA or, LPA or, ALLPA 

,SPLS 


SNAP 


SDATA VALUES 

ALL 

= 

all of the following fields 

NUC 

= 

all of nucleus except trace table 

TRT 

= 

trace tcble 

CB 


TCB, active RBs, JPACQ, and MSS control blocks 

SNAP 


PDATA VALUES 

ALL 

= 

all of the following fields (assume SA and ALLPA) 

PSW 

= 

Program Status Word when SNAP was Issued 

REGS 

= 

contents of general registers when SNAP was issued 

SA 

= 

linkage Information and back trace 

SAH 

= 

linkage information only 

JPA 

•= 

all virtual storage assigned to job step 

LPA 

= 

contents of resident reenterable load module 

ALLPA 

= 

JPA + LPA 

SPLS 

= 

contents of virtual storage subpools 0 - 127 


b 


STORAGE = (starting address, ending address,,..) 

,LIST = address of list ! 


trace data 


DATA=address,LNG=number of bytes of data, I D=re.cord IP 
[,FID=format identifier routine] 


Termination 


Terminate 
normal ly 

RETURN 

.[(range of registers .to be restored)] f,T] [”(, RC-0 to 4095 

il, 20=05) JJ ] 

In RETURN, T means: place al l ones 
in high-order byte of save area word 4. , 

Terminate 
abnormal ly 

ABEND 

0 to 4095, [PUMP] [, STEP] 
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Task Control 


(tee explanation of style - page 3-27) 


Dynamically 
load and 
initiate 
execution 

ATTACH 

( EP=entry point name ) 

/ EPLOC=address of entry point name + \ [, DCB=dcb address) 

I DE=address of name field of list entryJ 

[,PARAM=(address parameter [,address parameter]...) (,VL= 1]] 

[,ECB=ecb address] [, ETXR=address of routine to be entered when] 
subtask terminates 

[,LPMOD=number subtracted from limit priority] 

[,DPMOD=signed number algebraically added to dispatching priority] 

[.FPREGSA-jXg] ] 

Delete 

DETACH 

address of tcb address* 

Change 

priority 

CHAP 

signed number to be algebraically added to dispatching priority 

f, address of tcb address'! 

[/S’ J 

'S’ indicates that the priority of the 
active task is to be changed. 
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Virtual Storage Allocation 


(see explanation of style - page 3-27) 


Allocate 

storage 

GETMAIN 

GETMAIN 

R, LV= length 0 [,SP=0to 127] 

JECl,LV=1ength° 

lEUl 

( A=address of specification list 

J VC l,LA=qddress of length 0 list 

UvuJ 

[,SP=0 to 127] ],BNDRY=J DBLWD1] 

fiAsr 1 

Release 

storage 

FREEMAIN 

FREEMAIN 

JR,LV=Length°, A=oddress of storage area address* list (,SP=0 to 127]] 
lR,SP=(0) > 

| E,LV=length° J,A=addres$ of storage area address* list {,SP=Q to 127] 


MODE OPERANDS FOR GETMAIN AND FREEMAIN 



R=register type 
E=sing|e area, 
V=single area, 
U=un condi tione 
C=conditional 

fixed length 
variable length 

1 

Release 

virtual 

storage 

PGRLSE 

LA=low address of area,HA=high adaress + l of area 


3-34 OS/VS1 Programmer’s Reference Digest 





Overall Control Flow of Supervisor 


SVC 

Interruption 



To Dispatcher if 
Needed SVC 
Routine is not 
in Main Storage 


Program Check 
Interruption 


Program Check FLIH 


User-Written 

Error-Handling 

Routine 


External 

Interruption 


I/O 

Interruption 



Machine Check 
Interruption 


I/O 

Supervisor 


To Dispatcher if SVC 
Routine Issues an 
XCTL Macroinstruction 


Page 

Exception 

Handler 


Servi ce 

Interface 

Routine 



The exit routine is a Type 1 
SVC routine that does not pass 
control to the Type 1 exit 
routine. It is shown separdtely 
for illustrative purposes. 


Dispatcher 




I of Library Routines 


Exit Effector, 
Stage 3 


Program Fetch Routine 


I/O Supervisor 


Segment of 
Overlay 
Program 
Needed 


Overlay Link 

Supervisor other XCTJ 

—i-r- Routine —■— 

>f | h Needed | 

I Program Fetch Routine 


Link, Load, 
XCTL, and 
Synch Routir 


| I/O Supervisor P* ** 
The Overlay Supervisor and the 
Link, Load, XCTL and Synch 
Routines are Both Type 2 SVC 
Routines 
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General Flow Diagrams (Part 2 of 4) 


GETMAIN 
FREEMAIN 
DELETE 


ABEND 


SVC 3 



Delete 


Reduce Use Count 
in RB 

32 

V^CIoun 

e^V^ No 

t= 0 >> 

Yes 

f_ 

Dequeue RB and 
FREEMAIN 


Part 1 
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SVC 3 
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General Flow Diagrams (Part 3 of 4) 

Type III SVC Handler 


Dispatcher _ 


SLIH 


Second Level SVC Handler 



in 



Restore Registers 


. \ 


BAL to Type II 

H 

1 

_1 


SVRB Create 


GETMAIN for 
SVRB 


Initiate SVRB 
and Put it on 
RB Queue 


BLDL 


BLDL Subroutine to 
get TTR of Program on 
Disk - see Part 4 


Fetch 


Read Module 
into Storage 


Link (Part 4) j 
Load 
XCTL 
Find 
BLDL 

'SVC 3 


No 


No 


Dispatcher 



LPSW from Resume 
PSW in RB 


Save Current 
Task Registers 


Find Highest 
Priority Task That 
Is not Waiting 


Locate First RB 
on Active 
Queue 



Refresh the 
Transient Area 


LPSW 
Wait 
State 
if None 
Found 
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IGC018 (BLDL/FIND) 


LINK, LOAD and XCTL 


BLDl/FIND 


IGC008 (LOAD) 
IGC007 (XCTL) 

IGC006 (LINK) 




General Flow Diagrams (Part 4 of 4) 


BLDL Subroutine (Entered via BAL) 
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Section 4: Data Management Information 


This section contains information that is mainly of interest to the 
systems or applications programmer who works with programs that 
require data management support. 


Source Publications 


Details of data management macros for BSAM, BDAM, BPAM, 
BISAM, QSAM, and QISAM, as well as DASD track capacities, are 
found in OS/VS Data Management Macro Instructions, GC26-3793. 

You can obtain additional tape label information from 

• OS/VS Tape Labels, GC26-3795 

Data set record format information is available in OS/VS Data 
Management Services Guide, GC26-3783. 

Additional VSAM information is available in OS/VS Virtual Storage 
Access Method (VSAM) Programmer’s Guide, GC26-3838; OS/VS1 
Access Method Services, GC26-3840; and OS/VS Virtual Storage 
Access Method (VSAM) Options for Advanced Applications, 
GC26-3819. 

For information about MICR/OCR data management refer to these 
publications: 

• OS Data Management Services and Macro Instructions for 
IBM 1419/1275, GC21-5006 

• OS Data Management Services and Macro Instructions for 
IBM 1285/1287/1288, GC21-5004 
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Data Management Macros - Introduction 

Data Management Macros for: 


BDAM 

BSAM 

BPAM 


BISAM 

QSAM 

QISAM 


Completion codes for D/M macros are contained in the low-order byte of general 
register 15. Unless otherwise indicated the letter codes used here mean: 

A - Successful completion. 

B - Completion, but one or more errors occurred that may invalidate 
the results of macro execution. 


C - Permanent I/O error 

D - Track, block, or device address not within data set. 
E - Not complete or no operation performed. 


Introduction 



Completion 

Codes 


00 = A 
04=B 
08=C 


00=A 
04 = B 
08= E 


(SYSIN or 
SYSOUT) 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 


QSAM 


BUILD 



number of buffers 
(2-12) 


' area address I, \ number of buffers 

; (2-12) ( I (2-12) ; 


i , j buffer length | 
(2-12) i 

( 0 ) 


j buffer length 

I (2-12) ; 


, | record area address I f, j record area length (1 


j (2-12) 


»Ll 


( 2 - 12 ) 
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Data Management Macros (cont'd) 


A/M 

Macro 

Parameters 

Completion 

Code 

QSAM 

BUILDRCD 
(list, form) 

area address, number of buffers,buffer length 

,record area address[,record area length], MF = L 


BUILDRCD 

(execute 

form) 

[area address'], [number of buffers], [buffer length] 

L (2-12) J 

, j record area address],[record area length] 

L (2-12) J 

,MF = (E,/control program list address)) 

\ (1) / 


BDAM 

BISAM 

BPAM 

BSAM 


/decb address]J,DSORG=/IS \] 

t (i-i2) ;L iall/J 

■ 

BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

— 

CHKPT 

(deb address[,checkid address f", checkid length!]) 

(CANCEL j 

00=Success¬ 
ful comple¬ 
tion 

04=Restart 
occurred 

08 Unsuc¬ 
cessful com¬ 
pletion: 

Macro error 
0C = Unsuc¬ 
cessful com¬ 
pletion: 

I/O error 

10 = Success- 
ful comple¬ 
tion: 

Possible 

error 

14=Chkpt 

not taken 

CHKPT 
(list form) 

[deb oddress],[checkid address],j checkid length 

L’S' J 

,MF = L 


CHKPT 

(execute 

form) 

[deb address],[checkid address],! checkid length 

L's 1 J 

,MF = (E,/control program list address)) 

t (1) / 
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Data Management Macros (cont'd) 


A/M 


Completion 

Codes 


BDAM 

BISAM 

BPAM 

BSAM* 

QISAM 

QSAM 


(deb address [7 REREAD" 


E REREAD"] 
LEAVE 

rewind] 





[,TYPE = T]* 


CLOSE 

(list form) 


([deb address]! 


", REREAD - 
, LEAVE 
, REWIND 


7DISP= ( PASS V 
\ DELETE / 
< KEEP > 
CATLG l 
UNCATLG) 




[,TYPE = T]*,MF = L 


CLOSE 

(execute 

form) 


[([deb address]! 


", REREAD"] 
, LEAVE 

el 


, rewind] 


7DISP= ( PASS ) 
i DELETE ( 
< KEEP } 
I CATLG l 
( UNCATLG) 


-4 


[,TYPE = T]*,MF = (E / /data management list address)) 
i (1-12) > 


BSAM 

QSAM 




sp 'ii! 

SK,*j through^ 

BSM 

FSM 

BSR[,number of blocks] 
FSR[,number of blocks] 
ESPt 
LMK+ 

DMKt 

DSG 

ENG 


Not avail¬ 
able to user 
program 


t See OS/VS IBM 3886 Optical Character Reader Model 1 Reference. 
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Data Management Macros (cont'd) 


A/M 

Macro 

Parameters 

Completion 

Codes 

BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

DCB 

The DCB macro is too complex to properly document in 
this publication. For a list of the proper parameters to 
use, see the section following, DCB parameters. For 
detailed information about this macro, please refer to 
OS/VS Data Management Macro Instructions, 
GC26-3793. 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

DCBD 

|~DSORG = (|[BS][, DA][, IS][, LR][, PO][, PS][,QS]j)j 
[, DEVD = ( [DA][, PC][, PR][, PT][, RD][, TA][, MR] [, OR ])] 



FI 



FI 


BDAM 

BISAM 

BPAM 

BSAM 

FREEBUF 

/deb address) ,registei 

l 0-12) f 

*Note: 

Reg, any of 2 to 12, 
contains addr of buffer. 


BDAM 

BISAM 

FREEDBUF 

(deeb address) ,/K) , 
{ (2-12) > ID/ 

( (0) ) 

/deb address) 

l 0-12) / 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

FREEPOOL 

/deb address ) 

t 0-12) / 



QISAM 


(deb address ) 1" 

( area address)] 

QSAM 


<pdab address? 

< (2-12) > [,TYPE=P] 



( (1-12) 

. i (0) )J 
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Data Management Macros (cont'd) 


A/M 

Macro 

Parameters 

Completion 

Codes 

BDAM 

BISAM 

BPAM 

BSAM 

GETBUF 

/deb address! ,register* 

X 0-12) / 

*Nofe: Reg, any of 2 to 12, is where the system will 
place the buffer address. 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

GETPOOL 

/deb address) , (/number of buffers) ,/buffer length)) 

X (1-12) / jl (2-12) J l (2-12) j| 


BPAM 

BSAM 

NOTE 

/deb address) 

l 0-12) / 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

OPEN 

(/deb address) , (options)],...) 

) (2-12) / 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

OPEN 

(list form) 

( [deb address] ,[(options)],.. ,),MF= L 


OPEN 

(execute 

form) 

[(£{dcb addresS |J ' [(°P tions )l / • • •)] 

, MF= (E,/data management list address)) 

X (2-12) / 


Open Macro Options 


ACCESS 

METHOD 

DEVICE TYPE { 

MAGNETIC TAPE 

DIRECT ACCESS 

OTHER TYPES 

QSAM 

Option 1 Option 2 

Option 1 Option 2 

Option 1 Option 2 

INPUT " 
EXTEND 
OUTPUT 
RDBACK 


, REREAD" 
, LEAVE 
,DISP 


INPUT " 
EXTEND 
OUTPUT 
UPDAT 


", REREAD" 
, LEAVE 
,DISP 


[”INPUT " 
EXTEND 
[_OUTPUT 

— 

BSAM 

"INPUT ~ 
EXTEND 
OUTINX 
OUTPUT 
INOUT 
OUTIN 
RDBACK^ 


"REREAD" 
, LEAVE 
, DISP 


"INPUT " 
EXTEND 
OUTINX 
OUTPUT 
INOUT 
OUTIN 
UPDAT _ 


“REREAD" 
, LEAVE 
, DISP 


pNPUT " 
EXTEND 

Loutput 

— 

QISAM 
(Load Mode) 

— — 

("EXTEND' 

[output 

— 

— — 

BPAM, 

BDAM 

- - 

"INPUT " 
OUTPUT 
UPDAT 

— 

- - 


Optionally select one from vertical stack within [ ] 
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Data Management Macros (cont'd) 


A/M 

Macro 

Parameters 

Completion 

Codes 


PDAB 

MAXDCB = deb number 


QSAM 

PDABD 



BPAM 

BSAM 

POINT 

( deb address /, 

j 0-12) j 

(block address 1 
) (2-12) } 

( (0) ) 


BSAM 

QSAM 

PRTOV 

I deb address), 

| (2-12) ( 


![• 

l overflow exit address ( 

( (2-12) f 


QISAM 

QSAM 

PUT 

) deb address ( 

l 0-12) \ 

, iarea address ) 

i (2-12) l 

( (0) )J 



QISAM 

QSAM 

PUTX 

j deb address f 

j 0-12) ( 

, (input deb address ) 

) (2-12) C 

( (0) ) 



BDAM 

READ 

deeb name, )DI 
IDK 

l° |F 

|DIX 

Idkf 
f dkx l 

, (length ), ( key adc 

(2 .j! 

•J 

ress 

2) 

, \ deb address ), \area address) 

1 \ (2 - ,2 » \ \ <2 ,- s ,2) j 

, (block address If, (next address 11 

j (2-12) [[ j (2-12) [J 


BSAM 

for 

BDAM 
data set 

READ 

mmaiam 

■ 

BISAM 

READ 

deeb name, ( K 
IK 

( key address 

j (2-12) 

\, ( deb address 1 , 

J f X (2-12) / 

area address ) , ( length) 

( ^ 2) 1 M 


BPAM 

BSAM 

READ 

deeb name, f SF 

l RBLt 

, ( deb address 1 , / area address j , / length 

l (2-12) } \ (2-12) / < (2-12) 

1 'S' 


READ 
(list form) 

deeb name, type*, f" deb address "I , T area address 1 , f length"l 

L ’s 1 J L -s' J L -s- J 

j" key address j , [ block address ] , [ next address ] , MF =L 

‘Note: type will be one of the parameters (e.g., K,SF, 

Dl) from the applicable standard form of the READ macro. 

"i’See OS/VS IBM 3886 Optical Character Reader Model 1 
Reference. 
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Data Management Macros (cont'd) 


READ 

(execute] 


fdecb address), type*,Tdeb addr 

l (2-12) f L (2-12) 


lress"|,["area address" 

!) J (2-12) 


,["key address" ,f 

(2-12) L 

L -s 1 J 


*Note: type will be one of the parameters (e.g K, S 
from the applicable standard form of the READ 


D,/deb address), ( block addre: 

X (1-12) / { (2-12) 

( (0) 


KD[H] ) 
KCD ) 
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Data Management Macros (cont'd) 


A/M 

Macro 

Parameters 

Completion 

Codes 

BSAM 

QSAM 

SETPRT 

( deb address I 

l (2-12) ; 

[, BURST = {_N_| Y }] 

I",CHARS = j’ { name | A (address) | R (register)} 11 

[ j (j name ] A (address) | R (register)} ,...)) | 

[, COPIES = number] 

[,COPYNR = number] 

r,FCB =(; imageid |A (address) | R (register)) IT 

[ ( ({ imageid I A (address) | R (register) ) , ( V | A ))) J 

r,FLASH=|™me . 

1 | ([name] , count) ( J 

[,INIT ={ N_|Y}] 

f, MODIFY 3 | / name |A (address)| R (register)} | "1 

[_ | (( name |A (address) | R (register) },trc) j j 

r,OPTCD = ^(B|u} n 

(_ \({b|u},{f|u})(J 

[,REXMIT={nJy}] 
r,ucs =|csc n 

L \(csc, {F|F,V|,V}))J 



3800 Printer 
Bits 8-15 
00 


04* 


0C* 

10 


SETPRT Completion Codes 
FCB UCS 

Bits 16-23 Bits 24-31 

FCB/UCS 
Bits 24-31 

00 

00 

Successful completion 18 

04 

04 

Operator cancellation 1C 



Image not found in 20 

image library 

08 

08 

Permanent 1/O error 

in image library 24 

0C 

OC 

Permanent I/O error 
during load 

10 

10 

Permanent I/O error 
during image display 

14 

14 

Operator cancellation: 
incorrect image 


NOP: incorrect 
specification 
NOP: error during 
previous I/O attempt 
Insufficient space 
for SYS1 .IMAGELIB 
blocks 

Unable to open 
SYS 1. IMAGELIB 


3800 Printing Subsystem 
Bits 8-15 

28 Operator canceled forms overlay request 

2C Operator canceled page threading request 

30 Too many writable character generation modules requested 

34 Invalid table reference character 

38 Error while initializing 3800 

40 Permanent I/O error during command execution 

44 Unspecified character set referenced 


* 3800 Printing Subsystem Reason Codes (Reg 0) 

04 Character arrangement table module/record 

08 Copy modification moduie/record 

0C Starting copy number 

10 Graphic character modification module/record 

14 Forms overlay sequence control record 

1C Writable character generation module (WCGM) 

20 Forms control buffer module 
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Data Management Macros (cont'd) 


A/m 

Macro 

Parameters 

Completion 

BSAM 

QSAM 

SETPRT 
(list form) 

deb address 

[ / BURST={N. | Y}] 
(,CHARS=(name, ...)] 
[/COPIES^umber] 
l,COPYNR=number] 
l,FCB=(imageid[,V | , A])] 
l, FLASH=(name[, count])] 

[, INIT={_Nl Y ) ] 
l,MODIFY=(name[,trc])] 
[,OPTCD=({Blu}[,F|,U])] 
[,REXMIT={N| Y} ] 
[,UC$=(csc[,F |,F,V |,,V])] 
,MF=L 



BSAM 

QSAM 

SETPRT 

( deb address) 

i (2-12) ; 

[,burst={n|y 1*} ] 

r,CHARS=| J name A (address) R (register) } (. 

| <| ({ name A (address) R (register)},...) j J 

[,COPIES={ number |* } ] 

[,COPYNR={ number | *} ] 

[,FCB= j {imageid | A (address) | R (register) } j 

| ({ imageid ] A (address) | R (register)) ,{V|A))J 

r,FLASH=/ name l] 

1 ) ( [name] , count) j J 

l,INIT={NjY}] 

|",MODIFY=({ name |A (address) |R (register)} | j 

j | ( / name | A (address) | R (register)} , tre) j 

r,OPTCD= j { B | U} 'll 

L \ ( B|U , F|U ) fj 

[,REXMIT={ Nj Y I * } ] 
r,UCS=lcsc )] 

[ |"(csc, {F | F,V |, V}) j J 

,MF=(E,/data management list address)) 

( (1-12) / 
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Data Management Macros (cont'd) 


Completion 

Codes 


If deb address) , 

t 0-12) / 


/ list address ) 

) 

{ (2-12) } 

< C > 

\ (0) ) 

) D ( 


_( R 


Code 

(hex) 

00 

_A 

R 


<= 

Successful 

completion 

04 

Name already in 
directory 

_ 

__ 

New name already 
in directory 

08 

- 

Name not 

Old name not 

OC 

No space in directory 


- 

No space in 
directory 

10 

Permanent I/O error 
in directory 

14 

Specified data con¬ 
trol block not open 

18 

Insufficient 
virtual storage 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

EXCP 


! ACSMETH=8DAM 
ACSMETH=8 PAM 
ACSMETH=6SAM 
ACSMETH=QSAM 
ACSMETH=8ISAM 


[,PARMl=parm reg*][,PARM2-parm reg** ] 


Hume I n—o I jMm • _ 

ACSMETH=EXCP ,PARM1 = /iob address) 

L t 0-12) / J 

ACSMETH=QISAM|',PARM1 =|dcb address^|[,PARM2=parrn reg** 


\ o-i2) ;J 

*Note: Any of registers 1 to 12 
'*Note: Any of registers 0 or 2 through 12. 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

EXCP 


00^ 
08= E 
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Data Management Macros (cont'd) 


BDAM 

BISAM 

BPAM 

BSAM 

WAIT 

^number of 

|\long=. 

YES 

NO 

s,] ( ECB = addr ) 

l EC BUST = addr / 

1] 

BSAM 

WRITE 

decb name. 

(SF 

, fdeb address), farea address) 




sfr( 

X (2-12) / \ (2-12) / 




SD 





' SZ j 




r, length-1 r 

,next 

• address 1 



,(2-12) 


2) J 



L/s- J L 





Fixed - Length 

Variable or 1 

Jnspecified Length 

Code 

(SF or SO) 

(SF or SFR) 

(SZ) 

00 

Block written. (If previous return 
code was 08, block written only 
if the DD statement specifies 
secondary space allocation and 
sufficient space available.) 

Capacity record 
written; another 
track available. 

04 

Block written, fol¬ 
lowed by capacity 
record. 

Block not 
written; 
write a 
capacity 
record (SZ) 
to complete 
current track, 
then reissue. 


08 

Block written, 
followed by capac¬ 
ity record. Next 
block requires 
secondary space 
allocation. 


Capacity record was 
written. 

Next block requires 
secondary space al¬ 
location. This code 
not issued if WRITE 
SZ is only WRITE 
macro instruction 
issued on a one- 
track secondary 
extent. 

OC 

Block will not be wi 
tion for the previous 
WRITE. 

•itten; issue a 1 
i WRITE macro 

CHECK macro i ns true- 
, then reissue the 


(length ), 

( key address) 

) ' S ' 

) (2-12) ( 

((2-12)) 

1 ? s 


BI SAM WRITE decb n 


H dcb address) , (< 

(2-12) f { 


( length), (key address 

( 2 - 12 )} \ ( 2 - 12 ) 
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Data Management Macros (corn'd) 


A/M 

Macro 

Parameters 

Completion 

Codes 

BPAM 

BSAM 

WRITE 

decb name, SF, fdcb address), farea address) 1", flength ) | 

1(2-12) n (2-12) J ((2-12) /J 



WRITE 

(list 

form) 

decb name, type*, [deb address] ,Tarea address! 

L 's 1 J 

, j" length J,|" key addressj, [block address] , [next address!, 

MF = L *Note: type will be one of the keyword 

parameters (e.g., SF, DA, K) 
from the applicable standard form 
of the WRITE macro. 



WRITE 

(exe¬ 

cute 

form) 

! 

( decb address), type*,[deb address'], [area address! 

1 (2-12) / L (2-12) J (2-12) J 

,Tlength!,rkey address!,Tblock address! , Tnext address!, 

L ( 'S' 12) Jl (2 "s' 2) J l (2 " 12) J ^ (2_12) 

MF=E 

*Note: type will be one of the keyword 
parameters (e.g., SF, DA, K) 
from the applicable standard 
form of the WRITE macro. 


BDAM 

BISAM 

BPAM 

BSAM 

QISAM 

QSAM 

XLATE 

(area address) ,( length ) f,TO =fAl ! 

t (2-12) M(2-12)|L IE /J 
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DCB Parameters for Access Methods 



for these access methods ... j 


B 

B 

B 

B 

B 

E 

G 

Q 

Q 

T 

Use these DCB 

D 

1 

P 

S 

T 

X 

A 

1 

S 

C 

parameters 

A 

S 

A 

A 

A 

c 

M 

S 

A 

A 


M 

A 

M 

M 

M 

p 


A 

M 

M 



M 






M 



BFALN 

* 

* 

* 

* 


* 


* 

* 


BFTEK 

* 



* 

* 

* 



* 

* 

BLKSIZE 

* 


* 

* 




* 

* 

* 

BUFCB 

* 


* 

* 

* 



* 

* 


BUFIN 










* 

BUFL 

* 

* 

* 

* 


* 


* 

* 

* 

BUFMAX 










* 

BUFNO 

* 

* 

* 

* 

* 

* 


* 

* 


BUFOFF 




* 





* 


BUFOUT 










* 

BUFSIZE 










* 

CODE 




* 

* 

* 



* 


CYLOFL 








* 



DDNAME 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

DEN 




■* 


'* 



* 


DEVD 




* 

* 






DIAGNS 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DSORG 

* 

* 

* 

* 

* 

* 

* 

* 

* 


EODAD 



* 

* 




* 

* 

* 

EROPT 





* 




* 


EXLST 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

FRID 




* 







FUNC 




* 





* 


GNCP 







* 




GTYPE 







* 




KEYLEN 

* 


* 

* 


* 


* 



LERB 





* 






LIMCT 

* 










LRECL 



* 

* 




* 

* 

* 

MACRF 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

MODE 




* 

* 

* 





MSHI 


* 









MSWA 


* 









NCP 


* 

* 

* 







NTM 








* 



OPTCD 

* 


* 

* 


* 


* 

* 

* 

PCI 










* 

POLST 







* 




PRTSP 




* 


* 



* 


READYQ 





* 






RECFM 

* 


* 

* 




* 

* 

* 

RESERVE 










* 

RKP 








* 



SMSW 


* 









STACK 




* 


* 



* 


STOP 










* 

SYNAD 

* 

* 

* 

* 




* 

* 

* 

THRESH 










* 

TRTCH 




* 


* 



* 
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Direct Access Device Capacities 


Device 

Type 

Volume 

Type 

Maximum 
Blocksize/ 
Track 1 

Tracks/ 

Cylinder 

No. of 

Cylinders 2 

Total 

Capacity 1, 2 



7294 

20 

200 

29,176,000 

3330/ 

3333 

(Mode 1 1) 


13030 

19 

404 

100,018,280 

3330/ 

3333 

(Model 11) 


13030 

19 

808 

200,036,560 

3340 


8368 

12 

696(70-megabytes) 

348(35-megabytes) 

69,889,536 

34,944,768 

3350 


19069 

30 

555 

317,498,850 

2305-1 


14136 

8 

48 

5,428,224 

2305-2 


14660 

8 

96 

11,258,880 


1- Capacity indicated in bytes (when RO is used by the IBM programming 
system). 

2- Excluding alternate cylinders. 


Device 

Type 

Blocks with keys 

Blocks without keys J 

Bi 

Bn 

Bi 

Bn 

2314/ 

2319 

534 

146+ 512 ( KL+DL ) 

45+KL+DL 

534 

101+Iff (DU 

DL 

3330/ 

3333 

(Model 1) 

191+KL+DL 

191 + KL+DL 

135 + DL 

135 + DL 

3330/ 

3333 

(Model 11) 

191+KL+DL 

191+KL+DL 

135+DL 

135 + DL 

3340 

242+KL+DL 

242 +DL+DL 

167+DL 

167+DL 

3350 

267+KL+DL 

267+KL+DL 

185+DL 

185+DL 

2305-1 

634+KL+DL 

634 +KL+DL 

432+DL 

432+DL 

2305-2 

289+KL+DL 

289 + KL+DL 

198+DL 

198 + DL 

Bi is any block but the last on the track 

Bn is the last block on the track 

KL is the key length 

DL is the data length 
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Volume Organization with IBM Standard Labels 


Single Data Set 
Single Volume 


VOLT 


HDR2 


UHL1 


UHLn 


Data 

Set 


EOF! 


EOF2 


UTL1 


UTLn 


TM 


TM 


Single Data Set 


Multiple Vo lumes 


VOL1 


VOL1 

HDRI 


HDRI 

HDR2 


HDR2 

UHL1 


UHL1 ! 





_ 




UHLn 


UHLn 

TM 


TM 

First 

Part 


Last 

Part 

of 

of 

Data 

Set 


Data 

Set 

TM 


TM 

EOV1 


EOF1 

EOV2 


EOF2 

UTL1 


UTL1 




_ _ _ ^ 



UTLn 


UTLn 

TM 


TM 



TM 


} 

} 


} 

} 

} 


Volume Label 

Data Set 
Header Labels 

User Header 
Labels 


Data Set 
Trailer Labels 

User Trailer 
Labels 

End of 
Data Set 


Single Data Set/Single Volume: The volume label is followed by the data 
set header labels and optional user header labels. The data set is preceded 
and followed by a tapemark. The data set trailer labels are identified as 
EOF and followed by optional user trailer labels. Two tapemarks follow the 
trailer label group to indicate that the data set is the last data set on the 
volume and is not continued on another volume. 


Single Data Set/Multiple Volumes : More than one volume is needed to contain 
the data set. The last volume is organized the same as a single volume. On 
the other volumes, the data set trailer labels are identified as EOV instead of 
EOF, and the trailer label group is followed by one tapemark instead of two. 
The data set and user labels are repeated on each volume, and there is a 
separate volume label for each tape. 
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Volume Organization with IBM Standard Labels (cont'd) 


Multiple Data Sets 


Single Volume I Vol 1 of 3 



Data Set A Data Set A 



Multiple Data Sets 
Multiple Volumes 

Vol 2 of 3 Vol 3 of 3 



Multiple Data Sets/Single Volume: The tape begins with a volume label. 
Each data set is preceded by a header label group and a tapemark, and is 
followed by a tapemark and a trailer label group. The data set trailer labels 
are identified as EOF. Each trailer label group is followed by a tapemark; 
the toiler label group for the last data set on the volume is followed by 
two tapemarks. 


Multiple Data Sets/Multiple Volumes : More than one volume is needed 
to contain the multiple data set aggregate. The last volume is organized 
the same as a multiple data set/single volume layout. On the other 
volumes, the last data set trailer labels are identified as EOV instead of 
EOF, and the last trailer label group is followed by one tapemark instead 
of two. There is a separate volume label for each tape. 
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IBM Standard Label Processing by Data Management Routine 



Volume 

Label 


— 

Header Labels 1 

Trailer Labels 1 

Processing 

VOL1 

HDR1 

HDR2 

UHL1-8 

EOFlor 

EOV1 

EOF2 or 
EOV2 

UTL1-8 

First or Only 
Volume: 2 

Checks labels 
on input 
tape 

Open 

Open 

Open 

Open 

EOV 

bypassed 

EOV 

Checks exist¬ 
ing labels on 
output tape 
before over¬ 
writing. 

Open 

Open 

not 

read 

not 

read 

not 

read 

not 

read 

Open 5 

Writes new 
labels on out¬ 
put tape. 

Open 

or 

user 4 

Open 

Open 

Open 

Close 
or EOV 

Close 
or EOV 

Close 
or EOV 

Second or 
Subsequent 
Volumes: 3 








Checks labels 








on input tape. 

EOV 

EOV 

bypassed 

EOV 

EOV 

bypassed 

EOV 

Check labels 
on output tape 
before over¬ 
writing. 

EOV 

EOV 

not 

read 

not 

read 

not 

read 

not 

read 

not 

read 

Writes new 
labels on out¬ 
put tape. 

EOV or 
user 4 

EOV 

EOV 

EOV 

Close 
or EOV 

Close 
or EOV 

Close 
or EOV 


[Notes: 


1. For read backward operations, the action on header and trailer labels 
is reversed. 

2. Includes the first volume of concatenated data sets with unlike charac¬ 
teristics. Data sets with like characteristics can be processed correctly 
using the same data control block (DCB), input/output block (IOB), 
and channel program. Any exception in processing makes the data sets 
unlike. 

3. includes the first volume of concatenated data sets with like charac¬ 
teristics. 

4. User can create the label with the IEHINITT utility program or a user 
program. Subsequently, the label may be rewritten by the Open and 
EOV routines. 

5. If DISP=MOD is specified on the DD statement, the Open routine posi¬ 
tions the tape at the end of the existing data set and allows an input user 
trailer label routine to process user trailer labels (prior to overwriting 
the existing labels). 
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Label Formats 

IBM Standard Volume Label 


Position- 



Field Number and Name 

1. Label Identifier / 

WOL1* 

2. Label Number V 

3. Volume Serial Number* 

4. Reserved 


5. VTOC Pointer 

(Direct Access Only) 


6. Reserved 


7. Reserved 


* Functional Fields 


8. Owner Name and Address Code 


9. Reserved 
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Label Formats (cont'd) 


IBM Standard Data Set Label 1 

Position (Bytes) Field Number and Name 





Label Formats (cont'd) 

IBM Standard Data Set Label 2 


Position - 1 (Bytes) 


n 

mm 


□r 

0) 

Efl 

( 1 ) 

m 

1 

m 

■ 

IE 

■ 


1 

16 

( 1 ) 

IB 

( 1 ) 



— 

07) 






urn 


wm 


jn I 


■ 



80 



Field Number and Name 

1. Label Identifier) 

VHDR2/EOV2/EOF2 * 

2. Label Number ) 

3. Record Format 

4. Block Length * 


5. Record Length * 


6. Tape Density 

7. Data Set Position 


8. Job/Job Step Identification 


9. Tape Recording Technique * 

10. Control Character * 

11 . Reserved 

12. Block Attribute * 


13. Reserved 


* Functional Field 
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Label Formats (cont'd) 

User Label 
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Label Formats (cont'd) 


IBM 3540 Diskette Standard Volume (VOL1) Lctel (GC24-5110) 


Position 

Field Nome 

Contents/Use 

1-4 

Label - ID 

Identifies the sector as a volume label and must be VOL1 | 

5-10 

Volume ID 

The ID consists of from one to six alphameric characters. 

The characters must be left-justified. 

11 

Volume Accessibility 

A blank permits occess to the volume. A nonblank indicates 
authorization is required for further access to the volume. An 
operator message is issued requesting the nonblank character 
that allows further occess to the volume. 

80 

Standaid Label Version 

Must be W to indicate BM Standard Labels. The system 
processes only diskettes with IBM Standard Labels. 


IBM 3540 Diskette Standard Header (HDR1) Label (GC24-5110) 


Position 

Field Name 

Contents/Use 

1-4 

Label ID 

Label identifier for system application. Must be HDR1 or DDR1. 

6-13 

Data Set Identifier 

User ossified data set name. Must be one to eight alphameric 
characters, hyphens, or left braces. The first character must be 
alphabetic or national. The name must be left-justified and no 
duplicate data set identifiers should be on the same diskette. 

23-27 

Block/Record Length 

Indicates the length of the data recorded in each of the 128- 
position sectors for the data set. Must be decimal characters 
greater than 0 and less than or equal to 128. 

29-33 

Beginning of Extent 
(BOE) 

Identifies the address, track and sector, (HOss), of the first 
sector of the data set, where 01 < tt< 73. 01 < ss < 26, 

BOE < EOE, and BOE < EOD. 

35-39 

End of Extent (EOE) 

Identifies the address (ttOss) of the last sector of the data set, 
where 01 < tt < 73, 01 < ss < 26, EOE > BOE, EOE +1 address 
position - EOD. 

41 

Bypass Indicator 

Must contain blank or B. If set to blank, the data set is intended 
for processing. If set to B, the data set is not intended for 
processing even though it resides on the diskette (that is, the 3540 
does not read the data set when a B is in this field). 

42 

Data Set Security 
Indicator 

A blank permits access to the data set. A nonblank indicates 
authorization is required for further access to the data set. An 
operator message is issued requesting the nonblank character that 
allows further access to the data set. This field is processed only 
when the VOL1 accessibility indicator is a nonblank. It must be 
blank if the VOLI accessibility indicator is blank. 

43 

Writer Protect Indicator 

Must contain a blank or P. A blank indicates no write protection. 

P protects the data set from being overwritten. When P is specified 
for a data set, the diskette cannot be used to receive any SYSOUT 
data sets. 

44 

Interchange Type 
Indicator 

Must be blank for Standard Data Interchange. 

45 

Multivolume Indicator 

Must contain a blank, C, or L. A blank indicates the entire data set 
is on this diskette. C indicates the data set is continued on another 
volume. L indicates the data set is on the last volume. 

46-47 

Volume Sequence 

Number 

Indicates the sequence in a multivolume data set. Must be blanks or 01-99. 
Blanks indicate no sequence checking is to be performed. Sequence 
nurri>ers must be consecutive from 01-99. 

67-72 

Expiration Date 

May be used to contain the date (yymmdd) that the data set and its 
labels may be purged, yy is the year, mm is the month, and dd is the day. 

73 

Verify Indicator 

Must be blank, V, or C. A blank indicates the data set has not been 
verified or copied. V indicates the data set has been verified. C indicates 
the doto set has been copied. If verify indicator processing is requested, 
this field must be a V; otherwise, the HDR1 label is considered invalid. 

This field is igyiored when verify indicator processing is not performed. 

75-79 

End of Data (EOD) 

Identifies the address (ttOss) of the next unused section of the data set 
extent, where EOD > BOE, and EOE +1 address position > EOD. 
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Volume Organization with ANSI Standard Labels 



Single Data Set 



Volume Label 

Data Set Header 
Labels 

User Header 
Labels 




Data Set Trailer 
Labels 

User Trailer Labels 

End of Data Set 


Single Data Set/Single Volume: The volume label is followed by the data 
set header labels and optional user header labels. The data set is preceded 
and followed by a tapemark. The data set trailer labels are identified as 
EOF and followed by optional user trailer labels. Two tapemarks follow 
the trailer label group to indicate that the data set is the last data set on 
the volume and is not continued on another volume. 


Single Data Set/Multiple Volumes : More than one volume is needed to 
contain the data set. The last volume is organized the same as a single 
volume. On the other volumes, the data set trailer labels are identified 
as EOV instead of EOF, and the trailer label group is followed by two 
tapemarks. The data set and user labels are repeated on each volume, 
and there is a separate volume label for each tape. 
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Volume Organization with ANSI Standard Labels (cont'd) 


Multiple Data Sets 
Single Volume 







Multiple Data Sets 
Multiple Volumes 





Data Set B 
Continued 





Last of 
Data Set B 








Multiple Data Sets/Single Volume : The tape begins with a volume label. 
Each data set is preceded by a header label group and a tapemark, and is 
followed by a tapemark and a trailer label group. The data set trailer 
labels are identified as EOF. Each trailer label group is followed by 
a tapemark; the trailer label group for the last data set on the volume is 
followed by two tapemarks. 

Multiple Data Sets/Multiple Volumes : More than one volume is needed 
to contain the multiple data set aggregate. The last volume is organized 
the same as a multiple data set/single volume layout. On the other 
volumes, the last data set trailer labels are identified as EOV instead of 
EOF, and the last trailer label group is followed by two tapemarks. There 
is a separate volume label for each tape. 
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ANSI Standard Label Processing by Data Management Routines 



Volume Label 


Header 

Labels' 


Trailer Labels' | 

ftocessing 


USER 





EOF1 

EOF2 

EOF3-9 


VOL1 

VOLUME 

HDR1 

HDR2 

HDR3-9 

UHL 

or 

or 

yr 

UTL 



LABELS 





EOV1 

EOV2 

EOV3-9 


First or OH 
Volume^ • 

y 










labels on 
input tape. 

Checks 

Open 

Ignored 

Open 

not 

not 

not 

not 

not 

not 

Open 5 

existing 
tables on 




read 

read 

read 

read 

read 

read 


output 
tape before 











over- 











writing 











Writes new 

Open 

not 

Open 

Open 

not 

Open 

Close 

Close 

not 

Close 

labels on 

or 

written 



written 


or 

or 

written 

or 

output 

tape. 

user 4 






EOV 

EOV 


EOV 

Seconder 











Subsequent 

Volumes 3; 

Checks 

EOV 


EOV 



EOV 

EOV 



EOV 

labels on 
input tape. 

Checks 

EOV 

ignored 

EOV 

not 

not 

not 

not 

not 

not 

not 

existing 
Idbels on 




read 

read 

read 

read 

read 

read 

read 

output tape 
before over 











writing. 











Writes new 

EOV or 

not 

EOV 

EOV 

not 

EOV 

Close 

Close 

not 

Close 

labels an 

user 4 

written 



written 


or 

or 

written 

or 

output 

tape. 







EOV 

EOV 


EOV 


Notes: 

1. For read backward operations. Hie action on header and trailer labels is reversed. 

2. Includes the first volume of concatenated data sets with unlike characteristics. (Data sets 
with like characteristics can be processed correctly using the same data control block 
(DCB), input/output block (IOB), and channel program. Any exception in processing 
makes the data sets unlike.) 

3. Includes the first volume of concatenated data sets with like characteristics. 

4. User creates the label with the IEHINITT utility progran or a user program. 

5. If DISP=MOD is specified on the DD statement, the Open routine positions the tape at 
the end of the exisfing data set and allows an input user trailer Idbel routine to process 

user trailer label routine to process user trailer labels (before overwriting the existing labels )■ 
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Format of ANSI Standard Volume Label 


Position 


(Bytes ) 


1 

( 3 ) 

4 

0 ) 

5 

( 6 ) 

lo~ 


11 

(D* 

12 


_ 

( 20 ) 

"3r 


32 

( 6 ) 

~w 


38 

(14)* 

IT 


52 


— 

( 28 )* : 

TT 


80 

or 


Field Number and Name 

1. Label Identifier / 

> VOL 1 ** 

2. Label Number \ 

3. Volume Serial Number ** 

4. Accessibility ** 


5. Reserved 


6. Reserved 


7. Owner Identification 


*-ANSI Field Diffei 
from Corresponding 
IBM Field 

** Functional Field 

8. Reserved 


9. Label Standard Level ** 
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Format of ANSI Header 1 and Trailer 1 Labels 



Field Number and Name 

1. Label Identifier) 

Vhdri/eovi/eofi ** 

2. Label Number J 

3. File Identifier ** 

4. Set Identifier 

5. File Section Number 

6. File Sequence Number ** 

7. Generation Number 

8. Version Number 

9. Creation Date 

10. Expiration Date ** 

11. Accessibility ** 

12. Block Count ** 

*-ANSI Field Differs 
from Corresponding 

13. System Code ** IBM Field 

** Functional Field 

14. Reserved 
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Format of ANSI Header 2 and Trailer 2 Labels 


Position - 1 (Bytes ) 


J_ 

T 

(3) 

4 

0) 

5 

(T) 

6 


_ 

(5) 

To 


1L 


— 

(5) 

75 


16 


— 

- 

— 

(35)* 

W 


51 

52 

(2)* 

53_ 


' =_^ 

r t 

79“ 

80 

(28) 

i_ 


Field Number and Name 


1. Label Identifier i 

J HDR2/EOV2/EOF2 ** 

2. Label Number ’ 

3. Record Format ** 


4. Block Length ** 


5. Record Length 


6. Reserved for Operating System ** 


7. Buffer Offset ** 


*-ANSI Field Differs 
from Corresponding 
IBM Field 

r * Functional Field 


8. Reserved for Operating System 
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Format of ANSI User Labels 


Position 


4-30 


(Bytes) 


El 

■ 

O 


2 

0) 

El 

(76) 


Field Number and Name 


1* Label Identifier*) 

>UHL1-8/UTL1-8 
2 . Label number / 


* Functional Field 


3. User Specified 
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Component Support of Labels Processing Features 


Item 

Assembler 

Linkage 

Editor 

Sort/ 


COBOL 


PL/1 

RPG 

Utilities 

ANS V2 

ANS V3 

ANS V4 

FORI KAN 

Uses Data Manage¬ 
ment Facilities for 
Label Processing 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Supports Standard 
Labels (SL,AL) 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Supports Standard 
User Labels (SUL, 
AUL) 

No 

No 

Yes 

Yes 

SUL-Yes 

AUL-No 

SUL-Yes 

AUL-Yes 

SUL-Yes 

AUL-Yes 

No 

No 

No 

Supports Nonstand¬ 
ard Labels (NSL)l 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Supports Unlabeled 
Tape (NL) 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Supports Bypass 
Label Processing 
Option (BLP)2 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

v « 

Yes 

Yes 

Yes 

Supports Concaten¬ 
ated Data Sets 
with Unlike 
Attributes 

No 

Yes 

No 

No 

No 

No 

No j 

No 

No 

No 

' NSL can be specified only when installation-written routines that write and process the nonstandard 
labels have been incorporated into the operating system. 

2 If the BLP option is not specified at system generation, its use defaults to NL. 
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Data Set Record Formats 

Fixed - Length Records 
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— Segment Length -2 Bytes 


_ li _ 

RDW Dato Portion of Logical Record B 


Logical Record 
(In User's Work Area) 


tl\ 


Data Portion 
of First 
Segment 


Data Portion of 
Intermediate Segment 


Data Portion 
j of Last 
I Segment 



Optional Control Character 
served-2 Bytes 
Length - 2 Bytes 


Segr 


Control Codes 


descriptor word 
t descriptor word 


Binary Code 


00 

01 

10 

11 


Relative Position of Segment 

Complete logical record 

First segment of a multisegment record 

Last segment of a multisegment 

Segment of a multisegment record other than the 

first or last segment 
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Data Set Record Formats (cont'd) 


Spanned Variable - Length Records for BDAM Data Sets 


BDW 




First Segment 

LL 


of Logical 

LJ 

U 

Record A 


>. \ 

LL 


Intermediate Segment 
of Logical Record A 



LL 


Last Segment 
of Logical 


_ 

Record A 



it 





- Optional Control Character I— Segment Control 

- Reserved - 1 Byte Code 

- Segment Control Code - 1 Byte 

- Segment Length - 2 Bytes 

LL 

__ 


- Segment 
Control Code 


/“ 




Data Portion of Logical Record A 


Logical Record 
(In User's Work 
Area) 

Block Length - - 
2 Bytes 

Reserved - - 
2 Bytes 







Data Portion 

Data Portion 

Data Portion 



It 


c 

of 

of 

of Last 






First Segment J 

Intermediate Segment 

Segment 


£ 


Optional Control Character 
Reserved - 2 Bytes 
Record Length - 2 Bytes 


Note: Not All Segment and Block Combinations are Represented 


Legend 


Segment Control Codes 


BDW = black descriptor word 
ROW = record descriptor word 
SDW = segment descriptor word 
LL = block length 
It = segment length 


Binary Code Relative Position of Segment 
00 Complete logical record 

01 First segment of a multisegment record 

IQ Last segment of a multisegment record 

11 Segment of a multisegment record other 

than the first or last segment 
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Data Set Record Formats (cont'd) 


Variable - Length Records for ASCII Topes 
Block 


Blocked 

Records 


Optional 

Block 

Record A 

Record B 

Record C 

Prefix 





/ \ 

Optional 

Block 

Prefix 

Record D 

Record E 

Record F 




u 


Optional Control Character 
Reserved - 2 Bytes * 
ird Length ' 2 Bytes 


Unblocked 

Records 


Block 


Optional 

Block 

Record C 

Prefix 



Optional 

Block 

Record D 

Prefix 



Optional 

Block 

Record E 

Prefix 



Note: Block prefixes on output records must be 
4 bytes long. 


RDW - record descriptor word 
tt = segment length 


Undefined - Length Records 

Record 


c Data 


Optional Control / 

\ Character-1 Byte * 

Block \ Blgck /' Block 


/ ' N. N 


/ 


Record A 


Record B 


Record C 


Undefined-Length Records for ASCII Tapes 
Record 
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VSAM Macros for Data Access 


The BLDVRP, DLVRP, GETIX, MRKBFR, PUTIX, SCHBFR, 
SHOWCAT, and WRTBFR macros are described in OV/VS Virtual 
Storage Access Method ( VSAM) Options for Advanced Applications. 


ACB (Generate an Access-Method Control Block) 


[ label ) 

ACB 

[AM=VSAM] 

[,BSTRNO= Hummer ] 

[ ,BUFND=«H/n&er ] 

[,BUFNI= number ] 

[ ,BUFSP= number ] 

[ ,CATALOG= {YES | NO }] 

[,CRA={SCRA 1 UCRA}] 

[,DDNAME=dc?«a/7!e ] 

[, EX LST= address ] 

/,MACRF= ([ADR] [,CNV] [,KEY]\ 

[*{CFX INFX}] 

[,{DDN | DSN}] 

(,{DFR | NDF}] 

[ DIR] [,SEO] [,SKP] 
[,{ICI|NCT}] 

[,IN] [,OUT] 

[,{NIS |SIS}] 

[,{NRM | AIX}] 

[,(NRS | RST}] 

1,/NSR j LSR}] 

\ [.{NUB| UBF}]) 

[ ,MAREA- address ] 

[,MLEN= number ] 

[ ,PASSYiD= address ] 

[ ,STRNO=/j«mt»er ] 

CHECK (Suspend Processing) 

1 [ label ] 

CHECK 

RPL= address ] 

CLOSE (Disconnect Program and Data) 

[label ] 

CLOSE 

( address ,...) 

[,TYPE=T] 

ENDREQ (Terminate a Request) 

[label] 

ENDREQ 

RPL= address 

ERASE (Delete a Record) 

[ [label] 

ERASE 

RPL ^address J 

EXLST (Generate an Exit List) 

[ label ] 

EXLST 

[AM=VSAM] 

[,EODAD=( address [,{A |N }] [,L])] 

[,JRNAD=( address (,{A | N }] [,L])] 

[,LERAD=( address [,{A | N>] [,L])] 

[ ,SYNAD=( address [,(A j N}]],L])] 
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VSAM Macros for Data Access (cont'd) 

GENCB (Generate an Access-Method Control Block) 


[ label ] 


GENCB 


BLK=ACB [,AM=VSAM] 

[,BSTRNO= number ] 
[,BUFND=HutfjZw ] 

t,BUFNI=mim6er] 

[,BUFSP=rtMwi>er ] 

[,CATALOG={YES I NO{] 

[ ,COPIES=«Mmier ] 

[,CRA={SCRA I UCRA}] 
[,DDNAME=dc/name ] 

[ ,EXLST=ficMress ] 

[,LENGTH= number ] 
/,MACRF=([ADR] [,CNV] [,KEY]\ 
f.iCFX I NFX }] 

[,(DDN | DSN}] 

[,{DFR I NDF/] 

[,DIR] [,SEQ] [,SKP] 

[,{iciinoTi 

[,1N] [,OUT] 

[,'NIS | SIS|] 

[,{NRM | AIX}] 
f./NRS | RST}] 
f.{NSR | LSR>] 

\ 1,{NUB|UBF}]) / 

[,MAREA= address ] 

[ ,M LEN= number ] 

[ ,PASSWD= address 1 
[,STRNO=«u«ier ] 

(,WAREA=address ] 


GENCB (Generate an Exit List) 


[label 1 

GENCB 

. 

BLK=EXLST 

[,AM=VSAM] 

(,COPIES=n«wj6er ] 

[,EODAD=( address [,{A | N }] [,L) )J 
[,JRNAD=( address [,{A | N }] [,L])] 

[ ,LENGTH= number \ 

[,LERAD=( address |,{A | N J ] (,L] )1 
[ ,SYNAD=( address [ , { A | N ) ] [ ,L]) 1 
[,WAREA= address ] 

GENCB (Generate a Request Parameter List) 

[label ] 

GENCB 

BLK=RPL 
[,ACB -address ] 

[,AM=VSAM] 

[ ,AREA= address ] 

[,AREALEN= number ] 

( ,\RG=address ] 

[ ,COPlES=number ] 

[ ,ECB= address ] 

[,KEYLEN=na/ni>er ] 

[ ,LENGTH= number ] 

[ ,MSGAREA= address ] 

[ ,M SGLEN= number ] 

[ ,NXTRPL=ocWress ] 

[ ,OPTCD=( [ { ADR 1 CNV 1 KEY}] 

[,{ARD |LRD}] 

[,( ASY 1 SYN }] 

[,{DIR 1 SEQ | SKP }] 

[, FKS | GEN }] 

[,{FWD | BWD}] 

[.(KEQIKGE)I 
[,/ LOC 1 MVE}] 

[,{NSP INUP |UPD}])] 

[,RECLEN= number ] 

[ ,TRANSID=num6er ] 

[ ,Yl AREA=address ] 
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VSAM Macros for Data Access (cont'd) 


GET (Retrieve a Record) 

[label ] GET RPL=address 


MODCB (Modify an Access-Method Control Block) 


[label] MODCB ACB = address 

[3STRNO=nam*er ] 

13UFND=««»i6er ] 

13UFNI=numfeerl 
[ 3Ui r SP=nM/nder ] 

[,CATALOG={YES I NO}] 
[,CRA={SCRA | UCRA }] 

[ ,DDNAME= ddname ] 

[3XLSI ^address] 

/,MACRF=([ADR] [,CNV] [.KEYI \ 
[,{CFX I NFX}] 
[.(DDNlDSN }1 
[.{DFRINDF}] 

[,DIR] [gm\ [,SKP] 
[,{ICI I NCI}] 

[4N] [,OUT] 

[,(NIS I SIS}] 

[,{ NRM | AIX }] 
l./NRS |RST)1 
l./NSR ILSR }] 

\ [,{NUB|UBF}]) / 

[,MAREA= address ] 

[ number ] 

[3ASSW address] 

[ ,STRNO- number ] 


MODCB (Modify an Exit List) 


[label ] MODCB EXLST=«aWress 

[,AM=VSAM] 

(AIN)] [,L))1 

[,EODAD=(fliiress ],: 

[,JRNAD=( address [,{ 

AlN)](,L])l 

[,LERAD =(address [,] 

[AlN)H,LJ)] 

[,SYNAD=( address [,{A I N}] ],L] )1 | 


MODCB (Modify a Request Parameter List) 


[label ] MODCB KPL. = address 

[ ,ACB= address ] 

[ ,AREA= address ] 

[,AREALEN= number ] 

[ ,ARG=address ] 

[JLCB= address ] 

I JHEYLEfi=number J 
[ ,MSGAREA=atftfoe» ] 

[ ,MSGLEN= number ] 
[^XTRPL=fldare*s ] 

[,OPTCD=([ {ADR I CNV | KEY)] 
[,(ARD | LRD)] 
[,{ASY | SYNj] 
[,{DIR I SEQ | SKP}] 
(,{FKS I GEN}] 
[,{FWDI BWD)] 
[,{KEQ | KGE 
[,{LOC IMVT 
[.{NSPlNUP 
[ ,RECLEN= raiinfter 1 
[ ,TRANSID= number ] 


I UPD}))] 
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VSAM Macros for Data Access (cont'd) 


OPEN (Connect Program and Data) 


[label ] 

OPEN 

( address] ,{options)] .„) 

POINT (Position for Access) 

[[label] 

POINT 

WL=address 

PUT (Store a Record) 

[label] 

PUT 

RPL= address 

RPL (Generate a Request Parameter List) 

[label ] 

RPL 

\CB=address 

[,AM=VSAM] 

[,AKEA=address ] 

[ .ARE ALEN= number ] 

[ ,ARG= address ] 

[JLCB=address ] 

[,KEYLEN= number] 

[ .MSGAREA^ address ] 

[ ,MSGLEN= number] 

[ ,NXTRPL= address ] 

[,OPTCD=([{ADR | CNV 1 KEY}] 

[,{ARD | LRD}] 

[,{ASY I SYN }] 

[,{DIR I SEQ | SKP}] 

[,{FKS | GEN }] 

[, FWD| BWD}] 

[.(KEQ |KGE}1 
[,{LOC 1 MVE}] 

[,{ NSP 1 NUP | UPD}])] 

[,RECLEN= number ] 

[ ,TRANSID=/z«m6er ] 


SHOWCB (Display Fields of an Access-Method Control Block) 


[label ] 


SHOWCB 


ACB = address 
,AKEA=address 
,LENGTH =number 
[,OBJECT= {DATA I INDEX}] 

,FIELDS= ([ACBLEN] (,AVSPAC1 fJBFRFND] 
[3STRNO] [,BUFND] [,BUFN1] 
[3UFN0] [.BUFRDS] [3UFSP] 
[,CINV] [3DNAME] [,ENDRBA] 
[.ERROR] [,EXLST] [.FS] 
[3EYLEN] [,LRECL] [.MAREA] 
[,MLEN] [JSCIS] [J'JDELR] 
[.NEXCP] [.NEXT] [.NINSR] 
[,NIXL] [JVLOGR] [.NRETR] 
[,NSSS] [.NUIWJ [.NUPDR] 
[,PASSWD] [,RKP] [,STMST] 
[,STRMAX] [,STRNO] [,UIW]) 


SHOWCB (Display Fields of an Exit Let) 


[label ] 


SHOWCB 


AREA= address 
,EXLST= address 

J1ELDS=( [ EODAD ] [,EXLLEN] [ JRNAD] 
[,LERAD] [,SYNAD]) 
,LENGTH= number 


Section 4: Data Management 


4-39 









VSAM Macros for Data Access (cont'd) 


SHOWCB (Display Fields of a Request Parameter List) 


[ label ] 

SHOWCB 

AREA= address 

,F1ELDS=( | ACB| |,AIXPC] [,AREA] [,AREALEN] 

[ ( ARG] l.ECB] [,FDBK] [,FTNCD] [,KEYLEN] 
[JV1SGAREA] [,MSGLEN] 

[,NXTRPL] [,RBA] [,RECLEN] 

[,RPLLENJ l,TRANSID]) 

,LENGTH= number 
,RPL= address 

TESTCB (Test a Field of an Access-Method Control Block) 

[ label ] 

TESTCB 

ACB =address 
(,ERET =address ] 

[,OBJECT={DATA | INDEX}] 

, ATRB=([FSDS][,KSDS]l,REPL] 

[,RRDS] ],SPAN] [,SSWD] 

[,UNQ] [,WCK]) | 

CATALOG= YES NO 

MACRF=( [ADR] [,AIX] [,CFX] [,CNV] 

[,DDN] [,DFR] [,DIR] [,DSN] 

[,GSR] [,ICI] [,IN] [,KEY] 

[,LSR] [,NCI] [,NDF] [,NFX] 

[,NIS] [,NRM] [,NSR] [,NUB] 

[,OUT] [,RST] [,SEQ] [,SIS] 

[,SKP] [,UFB]) | 

OFLAGS=OPEN 

OPENOBJ= (PATH 1 BASE 1 AIX } | 

ACBLEN= number | 

AVSPAC= number | 

BSTRNO= number | 

BUFND= number \ 

BUFNI=nwm6er | 

BUFNO= number \ 
number | 

CINV=«Mwi6er | 

DDNAME=ddrtame | 

ENDRBA=«M/w6er | 

ERROR= number | 

EXLST=aa?d/Tess | 

FS= number 1 

KEY LEN=HMm&er | 

LRECL -number \ 

MAREA =address \ 

MLEN= number | 

NCIS= number | 

NDELR= number | 

NEXCP=«wmfter | 

NEXT=n«/nZ>er | 

NINSR=««m6er | 

NIXL = number | 

N LOGR= number \ 

NRETR= number \ 

NSSS= number \ 

NUPDR= number \ 

PASSWD= address | 

RKP= number | 

STMST=aafdrejs | 

STRNO=m/m6er | 
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VSAM Macros for Data Access (cont'd) 

TESTCB (Test a Field of an Exit List) 


[ label ] 


TESTCB 


-address 

[ ,ERET= address ] 

{EODAD= {01([ address ] [,{A|N}] [,L])}I 
JRNAD= {01 ( [address \ [,{ A i N } ] [ ,L])}I 
LERAD= {01( [address] [,{A|N}] [,L] )}l 
SYNAD= {01( [address] [,{A |N }] [,L])}} 
l ,EXLLEN= number ] 


TESTCB (Test a Field of A Request Parameter List) 


[label ] 


TESTCB 


RPL=address 
[,ERET= address ] 

{IO=COMPLETE I 

OPTCD=([ADR] [,ARD] [,ASY] [,BWD] [,CNV] 
[,DIR] [,FKS] [,FWD] [,GEN] [,KEQ] 
[,KEY] [,KGE] [,LOC] [,LRD] [,MVE] 
[,NSP] [,NUP] [,SEQ] [,SKP] [,SYN] 
[,UPD]) 

RBA= number \ 

RECLEN= number | 

RPLLEN= number \ 

ACB= address \ 

AIXFLAG=AIXPKP | 

AIXPC -number | 

AREA= address | 

AREALEN=«uw6er | 

ARG ^address \ 

ECB =address | 

FDBK= number \ 

FTNCD=«um6er | 

KEYLEN=numf>er | 

MSGAREA=add/ - ess | 

MSGLEN=«wwber | 

N XTRPL= address | 

TRANSID= number) 
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Flow of Control in QSAM 



Legend 

(a) Previous Channel Program 

(b) Next Channel Program 
- Control 

•-- Reference 
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Flow of Control in BSAM and BPAM 
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SAM Open Executor Selector-Stage 1 

These diagrams show the access method conditions that cause different executors to be selected, 
loaded, and to receive control after loading. X represents a condition that must be satisfied for 
the executor marked in that column. No indicates that the condition must not be specified for the 
executor to be selected. A blank in the upper portion of the "table indicates that either the condition 
is not required for selection or not examined at the time 


Access Method Options 

Selections | 

Actual Data Set 

XXX 

X X 

X X 

XXX 

X 

X 

X 

Dummy Data Set 



X 





*, DATA, or SYS OUT 





X 



specified or DD statement 








3505 (OMR/RCE) or 3525 




X 




3886 (OCR) 





X 



3800 Printer 






X 

X 

Direct Access Device 

X 

X 

X 

X 




Printer with UCS Feature 


X 






(1403 or 3211) 








Printer with forms control 


X 






buffer (3211 or 2245) 








Buffer Pool Required 

X 

X 


XXX 



X 

User totaling Specified 



X X 

X X 




Executors 








IGG0191A 

1A 1A 1A 

1A 1A 1A 

1A 1A 

1A 1A 1A 

1A 1A 

1A 

1A 

IGG0191B 

IB IB IB 

IB IB IB 

IB IB 

IB IB IB 

IB IB 

IB 

IB 

IGG0191C 



1C 





IGG0191I 

11 

11 


11 11 U 

11 


11 

IGG0191N 

IN 

IN 

IN 

IN ININ 

IN 



IGG0191T 


IT IT 






IGG0191U 


1U 






IGG0191V 


IV 






IGG0191Y 



1Y 1Y 

1Y 1Y 




IGG0193I 

31 

31 


31 31 3l 



31 

IGG0196A 

6A 6A 6A 

6A 6A 6A 

6A 6A 

6A 6A 6A 

6A 

6A 

6A 

IGG0196B 

6B 6B 6B 

6B 6B 6B 

6B 6B 

6B 6B 6B 

6B 

6B 

6B 

IGG196Q 






6Q 

6Q 

IGG0196R 





6R 



IGG01961 

61 61 61 

61 61 61 

61 61 

61 61 61 

61 

61 

61 

IGG0197E 


7E 






IGG0197F 


7F 






IGG0197L 




7L 

7L 



IGG0197M 




7M 

7M 



IGG0197U 


7U 






IGG0199F 





9F 



IGG0199G 





9G 



IGG0199W 





9W 
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SAM Open Executor Selector-Stage 2 
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SAM Open Executor Selector-Stage 3 


Access Method Options 

Selection ™""~| 

Paper Tape 

X 




Update 

X 




Chained Scheduling 

X 




Exchange Buffering 


X 


X 

Track Overflow 


X 

X 


None of the preceding 


X 


X 

Input 



X 


\ DATA, or SYSOUT 




X X 

specified on DD statement 





QSAM 



X 


Variable-length 



X X 


Record Format 





Spanned Records 




X 

Executors 





IGG01910 


10 



IGG01911 



11 


IGG01912 

12 12 




IGG01913 

13 

13 



IGG01914 


14 



IGG01915 



15 

15 

IGG019I6 



16 


IGG01917 


17 



IGG0I9I8 

18 18 




IGG01919 

19 

19 


19 

IGG01926 

26 

26 


26 

IGG0198L 




8L 8L 

IGG01990 


90 



IGG01991 



91 


IGG01992 



92 


IGG01993 



93 


IGG01994 




94 
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Section 5: JCL, Operator Commands, RES, SMF, and CRJE 


This section contains a variety of information about Job Control 
Language statements and certain terminal-based systems. 


Source Publications 


Additional JCL reference information is contained in OS/VS1 JCL 
Reference, GC24-5099. 

Additional operator commands information can be found in 
Operators Library: OS/VS1 Reference, GC38-0110. 

Additional SMF information is contained in OS/VS1 System 
Management Facilities (SMF), GC24-5115. 

Additional RES information is contained in OS/VS1 RES Workstation 
User's Guide, GC28-6879. 

Additional CRJE information is contained in OS/MFT, OS/MVT, and 
OS/VS1 CRJE System Programmer’s Guide, GC30-2016; OS/MFT, 
OS/MVT, and OS/VS1 CRJE Terminal User’s Guide, GC30-2014; and 
Operator’s Library: OS/VS1 CRJE, GC38-0335. 

Information on Mass Storage System (MSS) operator 
commands is contained in OS/VS Operator’s Library: 

IBM 3850 Mass Storage System (MSS) Operations 
Guide, GC35-0014. 


Section 5: JCL, Operator Commands, RES, SMF, and CRJE 


5-1 



Comment - Delimiter - Null - PEND - PROC Statements 


// 

Operations 

//* 

Comments coded in free form. If all comments cannot be included 
on one statement, they can be continued on consecutive comment 
statements. 


The Delimiter Statement 


/* 

Operations 

/* or any 
two charac¬ 
ters de¬ 
fined by 
the DIM 
parameter. 

Comments coded in free form. If all comments cannot be included on 
one statement, they can be continued on consecutive comment 
statements. 


The Null Statement 


// 

Operations 

// 

Blanks. The null statement placed at the end of job control state¬ 
ments and data indicates that the job is to be put on the queue of 
jobs ready for processing. 


The PEND Statement 


//Name 

Operation 

Comment Field 

//name 

(up to 8 characters followed 
by one or more blanks) 

PEND 

Comments coded in free form. If all 
comments cannot be included on one 
statement, they can be continued on 
consecutive comment statements. 


The PROC Statement 


//Name 

Operation 

Operands 

// name 

(up to 8 characters followed 
by one or more blanks) 

PROC 

Symbolic parameters and their correspond¬ 
ing default values, separated by commas; 

symbolic parm = val, symbolic parm = val 

In a catalogued procedure, the operand 
field is not optional. 

In an in-stream procedure, the operand 
field is optional. 
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JOB-EXEC-DD Statements 


The JOB Statement 


// Name 

Operation 

Operands 

//jobname 

JOB 

[Positional Parameters] 

(Can be made mandatory) 

[, list of keyword parameters] 


The EXEC Statement 


//Name 

Operation 

Operands 

// stepname 

EXEC 

(PGM = 1 

\ [ PROC =]procedurename / 

[, list of keyword parameters] 


The DD Statement 


//Name 

Operation 

Operands 

// ddname 

DD 


[DUMMY"] 


procstepname. 
ddname 



DATA 





[,list of keyword parameters] 
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JOB Statement 


Positional Parameters 


([account number] [,additional accounting 
information ,...]) [programmer's name ] 


Can be made 
mandatory 


Keyword Parameters 


[ addrspc= {reaD] 

[CLASS= jobclass] 

[CON D= ((code, operator), .. .)] 


[MPROFILE='profile string'] 
[MSGCLASS=output class] 


MSGLEVEL=( 


0ra>] 


[PROFILE='profile string'] 
[PRTY= priority] 


[REGION=value K] 


[ RESTART=(< stepname /[,c 

(stepname .procstepname / 

Ttiu c-/(lminutes] [, seconds ])\ 

L TIME -ll440 / 


Requests storage type 


Assigns A -Z, 0-9 

Specifies a maximum 
of 8 tests 

For ISSP only 

Assigns A - Z, 0-9 


For ISSP only 


Restart definition 

Specifies amount of 
storage space 

For deferred restart 


Assigns job CPU time 
limit 

Holds a job in job 
queue, or scans JCL 
for syntax errors 


j \ Mandatory - choose one. 

£ ] Optional - choose one or r 
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EXEC Statement 


Positional Parameters 

Comments 

/ /program name ) : 

Identifies program or 

tPGM = < * .stepname .ddname > f 

cataloged procedure 

i (*. stepname .procstepname, ddname ' i 


- [PROC = [procedure name / 


Keyword Parameters 

Comments 


TAGCT = (accounting information,-) 1 

LACCT .procstepname = (accounting information, ...) J 


C = I V,RT 11 
lREAL/J 


"(code, operator) 

COND=( (code, operator, stepname) 

_ (code, operator, stepname. procstepname ] 


ii'-ih a 


[ (code, operator) 

(code, operator, stepname) 

(code, operator, stepname. procstepname) 




f ,]f EVEN 1) 

1 lONLYj 


f FARM = value 1 

lPARM. procstepname =value J 


RD .procstepname = < ^5" £ 


[REGION = valueK] 


TIME = /([minutes] [,seconds))) 
\ 1440 / 


TIME, procstepname = ( (minutes, seconds)) 
11440 I 


Legend: 

{ | Mandatory - choose one. 

[ ] Optional - choose one or n 


Accounting informatio 
for step 


Requests storage type 


Specifies a maximum 
of 8 tests, or 7 tests if 
EVEN or ONLY is 
coded 


Specifies a maximum 
of tests, or 7 tests if 
EVEN or ONLY is 


Parentheses or apos¬ 
trophes enclosing value 
may be required 


Restart definition 


Specifies amount of 
storage space 


Assigns step CPU 
time limit 
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DD Statement 



Positional Parameters 

Comments 

r i 


Defines data set in the 

[dataj 


input stream or on disk¬ 
ette as associated data. 

[DUMMY] 


Bypass I/O operations 
on a data set (BSAM 
and QSAM). 


.Keyword Parameters 


Comments 


[AFF = ddname] 

AMP = [, 'AMORG'] 

[, 'BUFND =number'] 
[,'BUFNI =number'] 

[, 'BUFSP =number'[ 
(NCK'Y 

' ,CROPS = nre' 

'RCK'U 
,'OPTCD= |l' [ 


[,'STRNO =number'l 
[,'SYNAD =modulename'] 
[/TRACE'] 


CHARS = (id | [, id 2 / .. .id4l) 


COPIES = (n 0 [,(n 1> n 2 ,...n 8 )]) 


DCB = (list of attributes) 

/' dsname 

dcb=( I- ddname 

I * .stepname .ddname 
' *.stepname.procstepname.ddname. 

[DDNAME =ddname] 

[DEST =userid] 




"delete 




NEW 

,KEEP 

, DELETE 


DISP=( 

OLD 

,PASS 

,KEEP 

) 


SHR 

, CATLG 

, CATLG 



MOD 

, UNCATLG 

, UNCATLG 


_ 


_ 


_ 


Requests channel 
separation 

Modifies the program 
processing VSAM clusters 
or components 


Specifies checkpoint to 
be taken for the data set 
at end-of volume. For 
more information, see 
OSAS Checkpoint 
Restart. 


Specifies 5* through 8 r 
characters of names of 
load modules containing 
translate tables and table 
headers. ID ] of DUMP 
specifies high-density dump. 

Specifies number and 
grouping of copies to 
be printed. 

Completes the data 
control block 


oth 


Postpones the definition 
of a date set 
Specifies remote destin¬ 
ation for SYS OUT data 
set 

Assigns a status, disposi¬ 
tion, and conditional 
disposition to the data set. 
CATLG, NEW, and 
UNCATLG are valid for 
VSAM components and 


[ ] 
[] 


Mandatory - choose one. 

Enclosing subparameter, indicates that subparameter is optional; if more than one li 
enclosed, choose one or more. 

Enclosing entire parameter, indicates that parameter may be optional, depending o 
type of data set you are defining. 
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DD Statement (cont'd) 


dsname 

dsname(member name) 
dsname (generation number) 
dsname(area name) 

J &&dsname l 

&&dsname(member name) 
&&dsname(area name) 

* .ddname 

* .stepname .ddname 
*.stepname .procstepname .ddname^ 


Specifies identifier of 
associated data input or 
SYSOUT output, on 
diskette I/O device. 


data set or to identify an 
existing data set. An 
unqualified name is 1-8 
characters beginning 
with an alphabetic or 
national character. Area, 
generation, member, and 


F LASH=(id[, count]) 


Specifies forms control 
information. The FCB 
parameter is ignored if the 
data set is not written to 
a 3211 or 3800 printer. 

An image-id of STD3 
specifies a dump with 8 
lines/inch and 80 lines/page. 

Specifies forms overlay and 
number of copies. [Max 
count is COPlE$= n n value] 



,SL “ 
,SUL 
,AL 

[7PASSWORDir,IN 1 


,AUL 

Lnopwread Loutj 

LABEL =([data set seq^] 

,NSL 

[r J 


,NL 

,BLP 

,LTM 

r,EXPDT=yyddd] . 

_ 


L,RETPD =nnnn J'_ 


Specifies whether JES 
writer processing of a 
SYSOUT data set is to be 
deferred or processed 
normally 


Supplies label 
information 


MODIFY =(id[,trc]) 


[MSVGP = group - id] 


Specifies copy modificat 
pattern and translate 
table reference character 
[See CHARS= parameter] 

Specifies the ID of a 
group of Mass Storage 
Volumes. For more in¬ 
formation, see OS/VS 
Mass Storage System 
(MSS) Utilities for MSS 
Space Management. 


J [ Mandatory - choose one. 

£ J Enclosing subparameter, indicates that subparameter is optio 
enclosed, choose one or more. 

£ J Enclosing entire parameter, indicates that parameter may be 
type of data set you are defining. 


al; if more than one line is 


optional, depending on what 
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DD Statement (cont'd) 


Keyword Parameters 


Comments 


[OUTLIM =number) 


[QNAME =process name] 


[SEP =(ddname,...)] 


SPACE = (< CYL >, (primary[",secondary]!", directory!) 

* blocklength) JL, index J 

',CONTIG' 

f,RLSE1 ,MXIG [, ROUND]) 
L, J , ALX 

jsPACE = (ABSTR, (primary quantity, address j", directory J )) 

^(n,CYL, (primary quantity [secondary quantity] ))j 


’SPLIT = 


j (percent, block length, (pri mary [, secondary ])) 
V percent 


(TRK ) 

’SUBALLOC =(^ CYL |, (primary £, secondary^ [, di rectory ]) 


blocklength' 


T, ddname 

<, stepname. ddname 
stepname .procstepname 


!>1 

i .ddname ) 


SYSOUT = 

/classname - 

(clossnamej",program namej[,form number])! 

PROFILE ='sysout profile string' V 


1 (F, program name"|r, form number"] j 

1 L JL, J 1 


v ,PROFILE = 'sysout profile string') ' _ 


[TERM=RT] 

[COMPACT = compaction table name] 

pUCS = (character set code|*,FOLDj [,VERIFY])J 


unit address .unit count 
device type ,P [,l 

group name , 


DEFER] [, SEP =(ddnc 


i UNIT = (j 
UNIT =AFF =ddname 

^ VOLUME ([PRIVATE ]£, RET AINJ£, volume seq^J 


SER=(serial number, ...) 

REF =dsname 

REF=* .ddname 

REF =* .stepname .ddname 

REF =* .stepname .procstepname .ddname 


Limits the number of 
logical records you want 
included in the output 
data set (OUTLIM =is 
valid only on DD 
statement with SYSOUT = 
present) 

Specifies the name of a 
TPROCESS macro that 
defines a destination 
queue for messages re - 
ceived by means of TCAMj 


Assigns space o 
access volume f 


Assigns specific tracks on 
a direct access volume for 
a new data set 

Assigns space on a direct 
access volume for a new 
data set. Data sets share 
cylinders 

Requests part of the space 
on a direct access volume 
assigned earlier in the job! 


Routes a data set through 
the output stream. For 
classname, assign A-Z 
or 0-9 


Indicates that an RTAM 


Provides the system with 
volume information. 

REF =dsname, 

* .step.ddname, and 

* .stepname .procstepname 
are invalid for VSAM 
components and clusters 


Legend: 

| | Mandatory - choose one. 

[ ] Enclosing subparameter, indicates that subparameter is optional; if more than one line is 
enclosed, choose one or more. 

[ ] Enclosing entire parameter, indicates that parameter may be optional, depending on what 
type of data set you are defining. 

^ Invalid for VSAM components and clusters. 
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Operator Command Outlines 


This section contains outlines of OS/VS1 system operator commands and RES central 
operator commands. For details of usage and appropriate operands, see 
Operator's Library: OS/VS 1 Reference, GC38-0110. 


Operator commands that require no modification for RES. 

These commands are not 

valid from RES workstation. 


CONTROL 

SET 

DEFINE 

SWAP 

DUMP 

SWITCH 

HALT 

UNLOAD 

LOG 

VARY 

MODE 

WRITELOG 

PAGETUNE 


Operator commands that use additional operands for RES. 


CANCEL 

REPLY 

DISPLAY 

RESET 

HOLD 

START 

MODIFY 

STARTF 

MONITOR 

STOP 

RELEASE 

STOPMN 


WRITER 

Operator commands for RES. 


LISTBC 

ROUTE 

LOGON 

SEND 

LOGOFF 
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Operator Command Outlines (cont'd) 


Operation 

Operand 



f 

[ , DUMP] ],ALL] 

>1 



[JBN=] jobname* 

..nT 1 

[,USER=userid] 




L=holdJ 





r=* i 


/ CANCEL) 



, OUT I 


\ c ; 


| ]DEV=] unitaddr* 

L=holdJ 




[procname] identifier* 

J 


* May be specified up to five times if separated by 
commas and enclosed in parentheses. Can be com¬ 
bined with the other parameters that are allowed 
to be specified up to five times. 


{ D T E } 


rusj 1 

L PARM=membername J 


| D ISP LAY j; 


,TP 

, GRAPHIC 
,TAPE 
,DASD 
,UR 


f, ONLINE 1 , 1f , 
L, OFFLINE J 


/,USER = userid) , 
l, ALL / 1 


LIST] 


||aCT j [,L |, LB |, LS] 

_ / termid 

n. aam[, nnn. aam]... f 


'inact! 

TERM = •[ 


IN) t[=qclass][,USER=u$erid ]\ 

IQ J l [,ALLQ] / 

jobname *[,HOLD] |”,ALLQ J 
L,USER=useridj 

CONSOLES 


IN = class 

IN = ’string],string ...]’[,ALL] 
OUT = class 

OUT = ’string],string ...]’]>ALL] 


USEI! [', L .^„d] 


* May be specified up to five times if separated by commas 
and enclosed in parentheses. 


ALL \ 

aSdai;! U jbn > 

OUT [=6utclass] ) 


jobname* £, OUT{=outclass[outclass.. .]]J, ],USER = userid], / 

* May be specified up to five times if separated by 
commas and enclosed in parentheses. 


/ LISTBC V 
l LB / 


[NOTICES] ,MAIL [=userid] 
[MAIL][=userid][, NOTICES] 
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Operator Command Outlines (cont'd) 


userid l/password][TERM (termid)] 
IPROC (procname)] [NOTICES 1 
["MAIL LnONOTICEsJ 

NOMAIL 

LUNATT J_ 


f STATUS \ 

| RETRY, (RECORD) j 

I (QUIET J I 

MAIN, (RECORD) > 

| (QUIET / { 

! CONTROL,(THRESHOLD) I 
L (QUIET V 

Note: Blanks may be used in place of 
the commas in this command. 


I [ procname .1 
) L name. J identifier! 
I unitaddr 

f procname.Pnn,'data' 


jMODIFYj 


TYPRUN=I^®^ 1 

, I YrKUN \ NOHOLD / 

,CLASS=outclass 

,CLASS=jobclass 

' STA! '-CU 

t 

■Hi...) 

loser-id 
((user-id),.. .), 

,restart=| ( ^ ll 


HU) 


f, PAUSE = ( FORMS ) 1 (|, JOBCLASS = jobclass][, OUTCLASS = S n 
L (DATASETjj(|,OUTCLASS = s] f 


f,CPRES ] f,CI 
|_, NOCPRESj [,N 

[,USER=userid] 




,TRAN ] r,HFC 1 f,ATT 1 
NOTRANj L,NOHFcJ LrUNATTj 


( JOBNAMES|,T] \ 
i DSNAME 
I SPACE 

STATUS | 


[(NL, volserialh (STORAGE) 

unitaddr,VOL= <(SL,volserial) > ,USE = < PUBLIC > 
l(AL,volserial); (PRIVATE ) 


>erand,... )[,MN=A](, K|)( 


= l(HSTOP] I)]] 
[PAGEMEASl 
[REACT] 
[STATUS] 


>P=I(I {sYS el } l)l 

j ([ AI |n=] fre q uenc y[-ln = frequency].. 

5EMEAS=< £ equenCy . 

I (frequency; 


SY 

l (s ' 

[ A | L ll|( time ['lP a9etr ° n ll)l[, ,n vtime[,[pagetran]])U 
t " J ((,pagetran) )|_ ((,pagetran) )J 


REACT =< time 

|(time[,[pagetran]]) 
I (,pagetran) 
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Operator Command Outlines (cont'd) 


Operation 

Operand J 

m 

i 

(ALL ) ) 

IlN [-inclass] (r , BK1 ( 

)Q Hnclass] ( l ' JBN l 

OUT [=outclass]) | 

jobname* £, OUT [=outclass[outclass...]] ] [,USER=userid] J 

* May be specified up to five times if separated by commas 
and enclosed in parentheses. 

[t y ] 

/id i f 

Imsgno/ • useri ( ^K] text ) 

H"} 

• u * / PRTV =nn )[,OUT = s][,USER = userid] 

' obname '{class = c/ 

* May be specified up to five times if separated by commas 
and enclosed in parentheses. 

/ROUTE! 

X RO J 

f/AiALLT 1 

L\ JIJBN/=jobnameJ[, {Cl CLASS }= class] [,{ D| DEST}= userid] 

[, {GlGROUP} = (class!,class...])] [\{H|HOLD} =/YlYES \] 

1, {U| USER} = userid) L \n|N 0 IJ 

{ s m 

’text* 

messag 

" ,ALL 

, OPERATOR =routecode 

e-no I - ' 1151 1 

e n0 ‘ |_, DELETE J 

r,NOW ~| 

, LOGON 
|_ ,SAVE J 

{?} 

DATE=yy.ddd[CLOCK =hh.mm.ss] 

f T) 


ccu[,nn] f,/FORMDEFl 

r° 1 «}J 
[ir cRi T{f}] 

BURSTER^ jj 

[' CGS -{{}] 

(, LIST] 



(procname.^™} j f ^ -1 "1 

(procname [.identifier] L devicet YP®J' ^ J 

, Jobname 
,outclass 
, jobclass 

, (JOBCLASS = class, OUTCLASS=s) 

, (parm) 

,(fMODE = ( INT )~\ [,TIME=YES] [,DEBUG=YES] [,BUF=nnn]) 

L WJ 

[, USER=userid] 

[,keyword=option,.. .]* 

* Any valid keyword/option combination that can appear on a DD 
statement or EXEC statement can follow after the last positional 
parameter. It can be replaced by: 

PARM =, jobclasses [,SWA=nnnn 1 [,RESV=nn]' 

|_[,EXCPVR=NO] [,FMT=Y] J 
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Operator Command Outlines (cont'd) 


Operation 

Operand 

fr} 

[name] [ .identifier],unitaddr 

[,keyword=option,...] 

jobname \ 

(outclass / J 

m 

1 11“ procname."] identifier! * [,USER =userid] J 

1 / L name. J l f 

J(unitaddr ) 1 

/ jobname* \ 

| JOBNAMES j 

j DSNAME 1 

| SPACE I 

V STATUS ) 

May be specified up to five times if separated by commas 
and enclosed in parentheses. Can be combines with the 
other parameters that are allowed to be specified up to 
five times. 

(STOPMN) 
l PM ) 

/ JOBNAMES \ 

1 DSNAME 1 

I SPACE 1 

< STATUS > 

V MSG / 

m 

{- } 

' unitaddr, cuuJ 

jSWITCHj 

SMF 

|UNLOAD| 

unitaddr 

fTl 

r unitaddr [, PATH , cuu j \ /ONL|NE s 
< (unitaddr,unitaddr . . .)V { OFFLINE/ 
i unitaddr-unitaddr / 

rn 

{r^,'o-cu U )}' MsTcoNs 

{T} 

(unitaddr t 

tSYSLOG^HARDCPY 

r ( ALL 

, ROUT = < NONE 

L ((routecode 

",CMDS 
,NOCMDS 
,OFF 
, INCMDS 
, STCMDS 

, routecode] 

..j] 
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Operator Command Outlines (cont'd) 


Operation 

Operand 


( 

( 

( unitaddr ] 

< O- cuu 
( (I - cuu, O - cuu, 
, ONLINE 
,OFFLINE 

r, unitaddr 
, O - cuu 

[_,(l - cuu,0 - cuu). 

...) 

1 


m 


,CONSOLE 


f AU ) 

,AUTH=< INFO } 

l([SYS)[,IO][,CONS])J 
(ALL 

, rout=) none 

*(routecode[,routecode]... )< 
(unitaddr ■j 

,ALTCONS = ^ O- cuu V 

l. (I-cuu, O-cuu)) 


(WRITELOGl 
l W / 


1 WRITER! 
t WTR / 


>SP | F = •{ 

nnn 1 
DSIDJ 

BSP | B = | 

DSID 1 
JOB| j) 

LSP | L=|"j 

t 

HOLD I H 

REPEAT 1 R = 

f (nnn, 
1 nnn 


\ [,JBN I J = jobname] 
[,USER | u = userid] 


i, JOB 1 J )\ 
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Definition of Substitutional Operands 


c 

one input (A-Z, 0-9) or output (A-Z, 0-9) class. 

class 

one to fifteen job classes (A-Z, 0-9) without priorities. 

cuu 

the channel and unit address (cuu) on an I/O device. 

device 

symbolic remote device address used at RES workstation. 

devicetype 

a unit type, such as 2540 or 1403, of the output device to be used. 

eeee 

a four digit decimal number indicating on error count. 

frequency 

the number (0-9) of task dispatchings occurring before invocation of 
the page measurement routine. 

hh.mm.ss 

hour (00-23), minute (00-59), and second (00-59). 

i 

a single input class. 

id 

a two digit identifier that is identical to the identifier included in the 
system message. 

identifier 

a unique one to eight character alphanumeric name that starts with a 
letter and identifies one task started by a cataloged procedure. 

inclass 

one to four input queue classes (A-Z, 0-9). 

l-cuu, O-cuu 

the channel and unit addresses (cuu) of the input (l-cuu) and output 
(O-cuu) devices that make up a composite console. 

jobclass 

one to fifteen job classes (A-Z, 0-9). Priority of processing is from 
left to right. 

jobname 

the name of a specific problem program that appears on the JOB 
statement. 

keyword=ioption 

any valid keyword/option combination that may appear on a DD 
statement. 

level 

the in-use qu position (1-9 or N) on the STOP line. 

n 

a single digit decimal number. 

nnn 

a one to three digit decimal number. 

outclass 

one to eight output classes (A-Z, 0-9). 

O-cuu 

the channel and unit address (cuu) of an output only console. 

pagetran 

a number (0-255) of page transmission operations (page-ins and page-outs). 

parm 

information, of variable format, to be passed to a problem program. 

Pnn 

a partition number (P00-P15). 

procname 

the name of a cataloged procedure that resides on SYS 1 .PROCLIB. 

qclass 

one to four queue classes (A-Z, 0-9 for input queues, SOUT for the 
output queue, HOLD for the hold queue). 

routecode 

a system-to-operator message routing code. 

* 

a single output class (A-Z, 0-9). 

text 

information of extremely variable format. 

time 

a real time interval in seconds (0-9). 

tttt 

a four digit decimal number indicating an hour limit. 

unitaddr 

the channel and unit address (cuu) of an I/O device. 

volserial 

the volume serial number of a disk pack or magnetic tape. 

x 

a recording mode: either R (record) or Q (quiet). 

yy.ddd 

the year (00-99) and Julian day (000-366). 
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RES Workstation Command Outlines 


Operation 

Operand 

jCANCELJ 


[JBN=] jobname | (jobname, jobname, . . .)([,DUMP] [,ALL] U 

1 <,IN[=class 1 HOLD] K 

| l, OUT [=c lass 1 HOLD]) f 

[DEV=] unitaddr | (unitaddr,unitaddr, . . .) ) 

jDISPLAYj 

< 

( ADD 1 A 

T 

R[, LIST] 

jobname (jobname, jobname,...) [, HOLD] 

Q[= list] 

N(= list] 

) <ACT > [, L |, LB |, LS) ( 

RT, ) (INACT* [ 

( TERM = term-id [.dev [,term-id.dev],..] ) 

, USER tL,!d] 

> 

{ HO h LD } 

jobname | (jobname, jobname,...) 
r,OUT r=outclass [outclass...] "ll 

L L=(outclass,outclass,.. .)jj 

m 

[NOTICES [,MAIL]1 

Lmail [,notices]] 

{T} 

'text' 

LOGOFF 

[SLOW] 

LOGON 

userid [/password] TERM (term-id) 

[PROC(procname)] 

[NOTICES -I [MAIL 1 [ UNATT ] 

LNONOTICESJ LnOMAILJ 

jMODIFYj 


/,TYPERUN = HOLD| NOHOLD Y 

I ,CLASS = classnames [,PAUSE...] I 

I,PAUSE = FORMS | DATASET [,CLASS...] I 
(identifier ) 1 /[,CPRES ] [,HFC 1Y f 

procname. id ( / | L / NOCPRESj L,NOHFcJ > 

sfname. id i J 1 r CPACT IF, ATT 1 l | 

unitaddr 1 Y L,NOCPACtJ L,UNATtJ f 1 

r jRAN i 

Vvl,notranJ ) J 

(MONITOR) 
l MN J 

/JOBNAMES [,T]1 
(MSG / 

fT SE } 

jobname (jobname, jobname,...) 

[, OUT [=outclass [outclass...] ]] 

L L= (outclass,outclass,.. .)JJ 

[ RE H 
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RES Workstation Command Outlines (cont'd) 
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Operation 

Operand 

m 

jobname 1 (jobname, jobname, ) [, PRTY=priority [,OUT=outclass]] 

[, CLASS= class, OUT = outclass] 

/ROUTE) 
l RO / 

/A_|ALL \ [, {C | CL^SS}=class ] [, {D 1 DEST > = userid ] 

( J |JBN = jobname / 

[, (G 1 GROUP} =(c 1 ass [, class...])] f, { H | HOLD} = (Y | YES) "1 

L (N|NO/J 

{in 

W [ [' USER “{(^rid,us.rid...)}] [•{^ )N }]1 
_ ,OPERATOR(=route-code] 

SETPRT 

unitaddr,LIST 

m 

procnamej.id] (,unitaddr) 

[,,jobname | ,,outclass] [,keyword =option, .. .] 

/STARTF( 

\ SF / 

[name] [ .identifier],unitaddr 
r,, jobname! 

L,,outclass J 
[,keyword =option,...] 

/STOP) 

Ip/ 

[identifier | (identifier,identifier, ...)] 

[procname.identifier | (procname) 
rsfname. identifier 1 

L(sfname.identifier,sfname.identifier,...)] 

[unitaddr | (unitaddr,unitaddr,...)] 

Specify at least one operand, or any combination up to 5. 

I'STOPMN) 
l PM J 

/ JOB NAMES) 
l MSG / 

) WRITER [ 

1 WTR / 

unitaddr. 

FSP | F = {DS I D } 

BSP Mw|D 1 
(JOB |j) 

LSP ] L = { c } 

HOLD |H 

/ (nnn, JOB |j)l 
^ REPEAT |R=l nnn J, 

>[ ,JBN 1 J=jobname] 
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Definition of Substitutional Operands 


class 

specifies an input or output class. 

classnames 

1-8 output class names to be associated with the writer. 

data 

specifies information to be passed to the procedure. 

devicetype 

specifies a device type (for example, PR1). 

id 

specifies any unique one to eight character name that starts with 
a letter (except for Pnn or ALL). 

inclass 

specifies an input queue class. 

jobname 

specifies the name of a specific problem program. 

list 

specifies one to four queue classes. 

msgno 

one or two character identification of a message reply. 

n 

1, 2, 3 (single space, double space, or triple space). 

(n,...) 

specifies a single digit decimal number, or a list of numbers. 

nnn 

specifies a one-to-three digit decimal number. 

outclass 

specifies an output class. 

password 

specifies an assigned sequence of one to eight alphameric 
characters. 

PP 

specifies numerical priority (decimal number from 0 to 13). 

procname 

specifies the name of a cataloged procedure. 

rdr 

specifies the name of the reader procedure being started. 

route-code 

specifies a value which identifies a central console. 

term-id 

specifies a unique number (1-200) assigned to a remote terminal. 

text 

specifies information to be entered in response to a message. 

unitaddr 

specifies the symbolic unit address (for example, PR1) of an I/O device. 

userid 

specifies an assigned sequence of one to seven alphameric characters. 

wtr 

specifies the name of a writer procedure being started. 
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SMF 


SMF 




SMFxxxxx parameters* 


OPT= 

I'll 


1-coMeet system & job info 



y 


2-collect system, job, & job step info 


“DSV= 

(°y 


0-no data set or DASD info 



H 


1-collect DASD info 



Ul 


2-collect data set info 



( 3 ). 


3-collect data set & DASD info 


[REC= 

l-il 


0-no temporary data set info 


L 

(2 1J 


2-collect temporary data set info 


[EXT- 

O 

Z 

n 

NO-no exits 


L 

(YES 

u 

YES-take exits 

JWT=nnn 


nnn-wait state time limit in minutes 

[BUF=nnnn] 


nnnn-buffer size in bytes (max is 8192) 

SID=xxxx 


xxxx-system identification 


ropi- 

(YES 

n 

YES-operator allowed to modify parameters 


L 

(NO 

iJ 

NO-operator not allowed to modify parameters 


[~MAN= 

f NONEY1 

NONE-no records to SMF data set 



(user y 

USER-only user records to SMF data set (type 128-255) 



(all 


ALL-all record types to SMF data set 

* 

This is a 

SYS 1 

.PARMLIB member that specifies SMF default options to read 

during SMF in 

itialization. 
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CRJE Macros 


Name 

Macro 

Operands 

[name_ 

CRJELINE 

DDLINE=ddname, DDSYSIN=ddname [, RLN= (integer (1 

L \ 1 U 

,LERB=/ integerl , integer2 , integer3 , ingeger4 

L \J_2S 1 JS JL 5 1 ’ . 

( 1050,ADDR=charsl T (BCD )~| 

,TYPE= < 2740-1 > ,CODE= <’CORRES> 

(2741 )L (EBCD 

[, featured [dial] ,[interrupt])] 
[.ONINT-jN®!] 

1)3 


Name 

Operation 

Operands 

name 

CRJETABL 

[ 

1 

1 

OB= integer, USERS= integer, SYSCRJE= character 

JOBEXIT=routine name] [,ONEXIT=routine name] [,OFFEXIT= routine 

name] 

,BUFNO= (integer! [~,MSGNO= (integer!] f,BRDCST= (integer! 1 

t I ) L ( 122 )J[_ t 122 jj 

,OUTNO= (integer)! [~ / MSGRC= (integer (1 

I - )J L ij 

[,ALIAS= (command name,alias,...)] [, USRMCMD= (command,...)] 

_, USRSCMD= (subcommand,...) ] [,CMDEXIT=routine name] 

YPLlLNO= jintegerjj |”,FORTLNO= jinteger JJ 


Name 

Macro 

Operands 

[name] 

CRJEUSER 

[userid,password,...] 
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CRJE Terminal Command Formats 


COMMANDS 

1. CANCEL jobname 

r H [_ERE 1 " 

2. CONTINUE BlEGIN] 

L N [EXTl - 

3. DELETE dsname 


f NEW! [ 

'NUM 1 

fStCAN] 1 

4. EDIT dsname L OLD J l 

r PLl I (parameters) ] 

-NONUMJ 

1 

LNOS [CAN] J 


FORT 

DSLIST 

CLIST 

DATA 

_ TEXT J 

r L [ 1ST] 1 

5. EXEC dsname L NOL [1ST ] J 

6. LISTBC 

7. LISTDS dsname [S[TATUS] ] [H [ ISTORYl] 

8. LISTLIB [S [TATUSl] [ H [ ISTORY]] 

9. LOGOFF 


10. LOGON userid/password 

[A [CCT] (accounting information)] 
|"BC I [* M [ SGI D] "I 
LNOBCj L nOMISGID] J 


11 . 


12 . 


OUTPUT 


SEND 'text' 


jobname [SMSG] 

'U [SER] (userid) f~ N [QWl * 
L [OGON] 

O [ PERATOR] (integer) 


13. 

STATUS 

[jobname] 


14. 

SUBMIT 

dsname .. 

. 

15. 

TABSET 

1 num... 

'IN [PUT] 1 



OFF 

OUT [PUT] 



L J 

J 
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CRJE Terminal Command Formats (cont'd) 


EDIT SUBCOMMANDS 



1. 

linenum [A text] 



2. 

CA [NCELl jobname 



3. 

C [HANGE] linenum [linenum] 

A textl Atext2A[ A [LL] ] 



4. 

D [ELETE] [1 

nenum [linenum] ] 



5. 

END 





r 

f [increment] [1 ]"|1 

P [ROMPT] 

6. 

1 INPUT] linenum L R JJ [ 

_ NOP Irompt] J 



f NUM 



7. 

L [1ST ] [linenum [linenum ] ] L NONUM. 




J 

dsname 1 



8. 

M[ ERGE] l 

* ) [linenum linenum 

[linenum] 



Minenum r increment 1 



9. 

REN [ UMBER 

JO L JO J 



10. 

S [A VE ] [dsname ] [K lEY ] (keyH^ 
SC[AN] [linenum [linenum] LOFfJ 



11. 





fu [SER] (userid)fN [OW] ] 
LL[OGON]J 


12. 

SEND 'text' 

LO [PERATOR] (integer) 

J 




f dsname l 



13. 

SUB [MIT] 

l* / — 



14. 

TAB [SET] 

num...l Tin [PUT] 1 

OFF I I OUT [PUT] I 
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CRJE Terminal Commands and Functions 


SESSION MANAGEMENT COMMANDS 
Command Function 

LOGON To identify the user and initiate his session. 

LOGOFF To terminate a session. 

DATA MANAGEMENT COMMANDS 
General 

Command Function 

DELETE To scratch an VS data set or to remove a CRJE data set from the 

user's library. 

EDIT To initiate creating or updating operations. 

EDIT Subcommands 

Subcommand Abbreviation Function 

INPUT I To insert and/or replace lines in the active set. 

DELETE D To remove lines in the active data set. 

Implicit To enter or delete lines in the active data set. 

CHANGE C To replace character strings within lines of the 

active data set. 

MERGE M To combine another data set with the active 

data set or to copy lines from one place to 
another within the active data set. 

RENUMBER REN To reassign line numbers to the lines in the 

active data set. 

LIST L To display lines of the active data set. 

SCAN SC To request a syntax analysis of PL/l or 

FORTRAN source language statements in the 
active data set. 

SAVE S To store the active data set in the user's 

library. 

END To terminate creating and updating operations 

and to delete the active data set. 

JOB PROCESSING COMMANDS 
Command Function 

SUBMIT To enter a job into the VS job input stream. (Can also be used 

as an EDIT subcommand; it can be abbreviated SUB when used 
as a subcommand.) 

OUTPUT To request CRJE SYSOUT output of a conversationally-submitted 

job. 

CONTINUE To resume output listing that was previously interrupted. 

CANCEL To remove a job from the CRJE system and to delete any 

CRJE SYSOUT output of that job. (Can be used as an EDIT sub¬ 
command; it may also be abbreviated CA when used as a sub¬ 
command.) 

STATUS INFORMATION COMMANDS 
Command Function 

LISTLIB To obtain the name and characteristics of every CRJE data set 

in the user's library. 
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CRJE Terminal Commands and Functions (cont'd) — 
CRJE Installation Variables 


STATUS INFORMATION COMMANDS (cont.) 

Command 

Function 

LISTDS 

To obtain information about a particular CRJE data set in the 
user's library. 

STATUS 

To obtain information about fobs the user has submitted. 

MESSAGE COMMANDS j 

Command 

Function 

SEND 

To send a message to the central operator or to another terminal 
user. (Can also be an EDIT subcommand.) 

LISTBC 

To request the broadcast messages. 

TABSET COMMAND j 

Command 

Function 

TABSET 

To indicate the tab settings at the terminal. This command 
affects all input and output and can be either a command or an 
EDIT subcommand. (Can only be abbreviated - TAB - as a sub¬ 
command.) 

EXEC COMMAND 1 

Command 

Function 

EXEC 

To execute a sequence of commands contained in a CRJE data 
set. 


CRJE INSTALLATION VARIABLES 

The following functions, restrictions, and assignments are determined by the 
central installation when the system is generated. 

ADDITIONAL COMMANDS AND SUBCOMMANDS 

The installation may add commands and subcommands to the system by providing 
the routines to process them. 

COMMAND ALIASES 

The installation may assign alternate verbs (aliases) for the CRJE commands and 
subcommands. Duplication of aliases is allowed between modes but not within 
the same mode; i.e., the same alias may be used for a command and a sub¬ 
command, but it cannot be used for two commands (if in command mode) nor for 
two subcommands (if in edit mode). Either the CRJE name or the installation alias 
is recognized when entered from a terminal. 

EXIT ROUTINES 

Routines may be provided by the installation to check the accounting information 
on LOGON commands, to check JCL statements of fobs submitted for batch 
processing, and to obtain accounting information when a user logs off the system. , 
An installation routine may refect a LOGON command and may terminate a fob I 
submission. 
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CRJE Installation Variables (cont'd) 


SYNTAX CHECKERS 

The installation selects what syntax checkers, if any, are provided in the system 
and the kind of checking performed (i.e., level of checking or language level 
supported). 

NUMBER OF LINES PER SYNTAX SCAN 

The installation can impose a limit on the number of lines one statement can 
span and still be scanned as a complete statement by the syntax checker. 

USERID/PASSWORD 

The installation assigns userids and passwords to authorized terminal users. 

CRJE SYSOUT CLASS 

The system output class used for remote job output to be returned to terminal 
users is assigned by the installation. 

NUMBER OF LINES PER OUTPUT GROUP 

The installation specifies how many lines of output are sent to terminal before 
allowing the terminal user to interrupt the output. This only applies to terminals 
without a special interrupt feature. 

MAXIMUM NUMBER OF JOBS 

The maximum number of jobs that can reside in the central system at one time is 
determined by the installation. When this maximum is reached, no more jobs 
are accepted until some of the existing jobs are cancelled or their output is 
returned. 

MAXIMUM NUMBER OF MESSAGES 

The installation determines the number of messages that can be maintained by the 
system at any one time. This includes messages waiting for delivery at logon 
time and messages currently being processed. 

ROUTING CODES FOR MULTIPLE CONSOLES 

If the central system supports multiple consoles, the installation specifies a 
routing code for each console. A user may direct a message to an operator at a 
particular console by specifying the routing code for that console. 

ON-LINE TERMINAL TEST 

The installation determines whether or not the BTAM On-Line Terminal Test 
facility is provided. This facility provides tests that can be used by the terminal 
user as a start-up procedure or by the customer engineer for terminal checkout 
and diagnosis of terminal failure. 
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System Operator Commands for CRJE 


Operation 

Operand 

BRDCST 

l nnnn / 'text' 

C ) 'text' 1 

) nnnn I 

( DELETE 



Operation 

Operand 

CENOUT 

C, J=jobname, C= class 


Operation 

Operands 


MODIFY 

F 


[ procname.] identifier, ( D ) = (address,.. *) 

IA / 


Operation 

Operand 

MSG 

C 

M='text' [, U= userid [,Q ] \ 

D= userid ' 


Operation 

Operands 

SHOW 

/JOBS [,{obname] 

| USERS [,userid] 

1 ACTIVE [,NUMBER] 
C J BRDCST 

| MSGS [,userid ] 

I LERB [, lineaddress] 

I SESS [,userid] 
VSESSREL [,userid] 

: 


Operation 

Operands 

jSTARTJ 

procname. identifier,, , ( 

rFORM ) 
NFMT 

.none) 

Cabno)) 

j,NORM } 


Operation 

Operand 

(T) 

[ procname, ] identifier 


Operation 

Operands 

USERID 

c '! 

'<A [DD] 1 = (userid,password) 

b [ELETEJ * 

S[UPPRESS] 

' R [ESUME ] 
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Section 6: Linkage Editor and Loader 


This section contains information about the Linkage Editor and 
the Loader. 


Source Publication 


Detailed information about the linkage editor and loader is contained 
in OS/VS Linkage Editor and Loader, GC26-3813. 
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Linkage Editor JCL Statements - Optional/Required 

Required and Optional Statements Notes 


Optional 

//jobname JOB 


See notes. 

//stepname EXEC/ PBM=HEWL ) 

t pgm=linkedit/ 

, PARM= 'options' 

These names can also be 
used: IEWL 

IEWLF440 

IEWLF880 

IEWLF128 

or as a subprogram: 

LOAD/CALL 

LINK 

XCTL 

or as a subtask: 

ATTACH 


//SYSLIN DD dataset reference 

Primary input data set: 
*-for an immediately 
following data set. 
DSNAME =data set. 
DISP=(OLD / 

DELETE) for a 
cataloged data set 

opt. 

//SYSLIB DD dataset reference 

For automatic call: 
DSNAME= library, 
DISP=$HR 
libraries are; 
SYS1.ALGLIB 
SYS1.COBLIB 

SYS1 .FORTLIB 
SYS1.PL1LIB 

SYS1 .SORTLIB 


// DD DDNAME=SYSIN 

Reference to linkage 
editor control statements 
if not included with 
SYSLIN data 


//SYSUT1 DD dataset reference 

Intermediate data set 


//SYSPRINT DD dataset reference 

Diagnostic output data 
set 


//SYSLMOD DD dataset reference 

Output module library 

opt. 

//SYSTERM DD dataset reference 

Required only if PARM= 
TERM specified on EXEC 
statement 


//ddname DD dataset reference 

One for each INCLUDE 
or LIBRARY reference 

opt. 

//Linkage Editor Control Statements 

In addition to or if not 
defined as a data set by 
the //SYSLIN DD state¬ 
ment 

opt. 

//Object Module (s) 

/* 

// 

In addition to or if not 
defined as a data set by 
the //SYSLIN DD state¬ 
ment 

End of linkage editor 
input and job step. 

End of job 
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Linkage Editor Execute Statement 


Execute Statement: 


PARM='options' 
options are: 

AC(1) - 

NE 

OL 

OVLY 

RENT 

REUS 

REFR 

XCAL 

LET 

NCAL 

ALIGN2 - 


SIZE= 
(value], 
value2) - 

DCBS 

LIST 

MAP 

XREF 

TERM 


assign an authorization code 

not editable; no ESD produced in load module. NE is ignored 
if MAP or XREF specified. 

only load; a LOAD and branch instruction or CALL required 
to load and enter module. 

overlay; must be present if OVERLAY or INSERT statements 
are used. Not for use with refreshable, re-enterable, or 
serially reusable programs. 

re-enterable; all CSECTs must be re-enterable or RENT is 
ignored. 

reusable; all CSECTs must be re-enterable or serially reusable 
or REUS is ignored. 

refreshable; all CSECTs must be refreshable or REFR is ignored, 
exclusive call; must be specified with OVLY. 
allow execution; execution of the module may be attempted 
even if severity 2 errors have occurred during linkage editing, 
no automatic library call; library members are not called to 
resolve external references. A SYSLIB DD statement need not 
be supplied. 

align on page boundary; used with PAGE or ORDER with P 
operand statements to cause alignment of CSECTs on 2K page 
boundary. Default is 4K alignment. 

size; value] is virtual storage available for linkage editor with 
minimum of 65,536 and default of 196,608. Value2 is load 
module buffer with minimum of 6144, maximum of 102,400, 
and default of 65,536. 

allow specification of DCB for SYSLMOD - block size must be 
specified in DCB parameter of SYSLMOD DD statement. 

list linkage editor control statements; statements appear in 
card-image format on diagnostic output data set. 

map the output module; the map appears on the diagnostic out¬ 
put data set. 

produce cross reference table; cross reference table, including 
map, appear on diagnostic output data set. MAP need not 
be used with XREF. 

print diagnostics on data set specified by SYSTERM DD 
statement; if SYSTERM DD statement is not included, TERM 
is ignored. 
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Execute Statement (cont'd) - SIZE and REGION Parameter Guidelines 


PARM default attributes for the linkage editor: 


not tested 
block format 
not refreshable 
not re-enterable 
not serially reusable 


REGION parameter 


REGION=value - if SIZE= was specified in PARM, partiti 
be 10K larger than value.. 


SIZE AND REGION PARAMETER GUIDELINES 


Guidelines for determining an appropriate REGION parameter value and SIZE 
parameter values for a linkage editor job step: 


First - determine Value,- of the SIZE parameter. 


>K < I”a + b ~| 
S144 = I c x d I 

J J LcxeJ 


where: a is the length of the load module to be built 
b is 0, if the length of the load module to be 

bum is < [-] 

p4K 1 

4096 I ^ the length of the load module to 

.> [£.] 

c is an integer = 2 

d is the track capacity of the SYSLMOD device 
e is the block size of the SYSLMOD data set 
J is the length of the largest text record in load 
module input 

8 is the track capacity of the SYSUTI device 
Second - determine Value, of the SIZE parameter 

T 999K 

Value j = f + g + h' Value ^ must range between f and gggggg 
where: f is the design point of the Linkage Editor being used: 


g is the excess of Value- over 


g = Valu.g - [^44] 


h is the additional storage required to support the blocking 
factor for SYSLIN, any object module libraries, and SYSPRINT: 


P 18K "I f 28K "j 
[ 18432 J [ 28672 J 


Third - determine the REGION parameter. 
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Linkage Editor Incompatible Job Steps - Return Codes 



Incompatible Job Step Options for the Linkage Editor 


Linkage Editor Return Codes 


Return 

Code 

Severity 

Code 

Description 

00 

0 

Normal conclusion. 

04 

1 

Warning messages have been listed, execution should be 
successful. For example, if the overlay option is specified 
and the overlay structure contains only one segment, a return 
code of 04 is issued. 

08 

2 

Error messages have been listed, execution may fail. The 
module is marked not executable unless the LET option is 
specified. For example, if the block size of a specified 
library data set cannot be handled by the linkage editor, a 
return code of 08 is issued. 

12 

3 

Severe errors have occurred, execution is impossible. For 
example, if an invalid entry point has been specified, a 
return code of 12 is issued. 

16 

4 

Terminal errors have occurred, the processing has terminated. 
For example, if the linkage editor cannot handle the blocking 
factor requested for SYSPRINT, a return code of 16 is issued. 
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Linkage Editor Control Statements 


Operation 

Operand 

ALIAS 

1 symbol # , symbol 

f external name \ , external name 

CHANGE 

external symbol (newsymbol)!, external symbol (newsymbol),...] 

ENTRY 

external name 

EXPAND 

name (xxxx) [, name (xxxx)]... 

IDENTIFY 

csectnameCdata'Jl/CsectnameCdata')]... 

INCLUDE 

ddnamet (membername!/membername]...)] 

[ ,ddname[ (membername!, membername] 

INSERT 

csectname[,csectname,...] 

LIBRARY 

( ddname(membername{ ,membername ]...) i 

/ (externalreFerence[,externalreference]...) \ 

f *(externalreferencelexternalreference]...) \ 

NAME 

membername! (R)] 

ORDER 

1 common area name i 

< \ U P)1 

/ csectname j 

i common area name I 

, < \ UP)] 

/ csectname j 


OVERLAY 

symbol! (REGION)J 

PAGE 

l common area name i 

1 csectname \ 

( common area name 1 

/ csectname \ 


REPLACE 

i csectname- l{(csectname-2)] 

1 entry name 


SETCODE 

AC(1) 

SETSSI 

xxxxxxxx 
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Linkage Editor Record Formats - Capacities 


The following record formats are used with the linkage editor: 


F 

FB 

FBA 

FBS 

FA 

FS 

U 

UA 


The records are fixed length. 

The records are fixed length, and blocked. 

The records are fixed length, blocked, and contain ANSI 
control characters. 

The records are fixed length, blocked, and written in standard 
blocks. 

The records are fixed length and contain ANSI control 
characters. 

The records are fixed length and written in standard blocks. 
The records are undefined length. 

The records are undefined length and contain ANSI control 
characters. 


Capacities 


Function 

Capacity 

Virtual storage allocated (in bytes) 

64 K 

Maximum number of entries in composite external symbol 
dictionary (CESD) 

558 

Maximum number of intermediate text records 

372 

Maximum number of relocation dictionary (RLD) records 

192 

Maximum number of segments per program 

255 

Maximum number of overlay regions per program 

4 

Maximum blocking factor for input object modules (number of 
80-column card images per physical record) 

10 1 

Maximum blocking factor for SYSPRINT output (number of 121- 
character logical records per physical record) 

10 1 

Output text 
record length 
(in bytes) 

On IBM 2314, 2319 

Storage Facility 

3072 2 

On IBM 2305-2 Fixed Head 

Storage Facility 

3072 2 

On IBM 3330, 3340, or 3350 Disk 

Storage Facility 

3072 2 

^From 74K to 9999K for value] of the SIZE option, the blocking factor for input 
object modules and SYSPRINT output is 40. 

2 The maximum output text record length is achieved when value 2 of the SIZE 
parameter is at least twice the record length size. For example, on a 3330, 

12288 byte records are written when value 2 is at least 24576. 
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Loader JCL Statements 


//name 

JOB 

parameters 

(optional) 

//name 

EXEC 

PGM=LOADER , PARM= (parameters) 

//SYSLIN 

DD 

parameters 


//SYSLIB 

DD 

parameters 

(optional) 

//SYS LOUT 

DD 

parameters 

(optional) 

//SYSTERM 

DD 

parameters 

(optional) 

// (optional DD statements and data required for loaded program) j 


Input Deck for the Loader — Basic Format 


Loader EXEC Statement 
The two loader names are: 

1. LOADER 

2. IEWLDRGO 
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Loader Execute Statement 


MAP. The loader produces a map of the loaded program that lists external names 
and their absolute storage addresses on the SYSLOUT data set. (If the 
SYSLOUT DD statement is not used in the input deck, this option is ig¬ 
nored .) 

NOMAP. A map is not produced. 

RES. An automatic search of the link pack area queue is to be made . This 

search is always made after processing the primary input (SYSLIN), and 
before searching the SYSLIB data set. When this option is specified, the 
CALL option is automatically set. 

NORES. No automatic search of the link pack area queue is to be made. 

CALL. An automatic search of the SYSLIB data set is to be made. (If the 

SYSLIB DD statement is not included in the input deck, this option is 
ignored.) 

NOCALL An automatic search of the SYSLIB data set will not be made. When 
or NCAL. this option is specified, the NORES option is automatically set. 

LET . The loader will try to execute the object program even though a severity 
2 error condition is found. (A severity 2 error condition is one that 
could make execution of the loaded program impossible.) 

NOLET . The loader will not try to execute the loaded program if a severity 2 
error condition is found . 

SIZE=size. Specifies the size, in-bytes, of dynamic virtual storage that can be 
used by the loader. 

EP=name. Specifies the external name to be assigned as the entry point of the 
loaded program. This parameter must be specified if the entry point 
of the loaded program is in an input load module. For FORTRAN, 
ALGOL, and PL/l, these entry points must be MAIN, IHIFSAIN, 
and IHENTRY, respectively. 

NAME=name, Specifies the name to be used to identify the loaded program to 
the system. If this parameter is not used, the loaded program 
will be named **GO. 

PRINT. Informational and diagnostic messages are produced on the SYSLOUT 
data set. 

NOPRINT. Informational and diagnostic messages are not produced on the 
SYSLOUT data set. SYSLOUT is not opened. 

TERM 

Numbered diagnostic messages are to be sent to the SYSTERM data set. The 
SYSTERM data set can be used to replace or supplement the SYSLOUT data set 
at any time. (If the SYSTERM DD statement is not included in the input deck, 
this option is ignored.) 

NOTERM 

Numbered diagnostic messages are not to be sent to the SYSTERM data set. 

Unless otherwise specified with the LOADER macro instruction during system 
generation, the default options are: NOMAP, RES, CALL, NOLET, SIZE=100K, 
and PRINT. The de.ault options NAME=**GO and NOTERM cannot be changed 
during system generation. 
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DO Statements ■ Loader Macros 


The following considerations apply to the DCB parameter of'SYSUN, SYSUB, 
and SYSLOUT. 

• For better performance, BLKSIZE and BUFNO can be specified. 

• If BUFNO is omitted, BUFNO=2 is assumed. 

• Any value given to BUFNO is assumed for NCP (number of channel 
programs). 

• If RECFM=U is specified, BUFNO=2 is assumed, and BLKSIZE and 
LRECL are ignored. 

• RECFM=V is not accepted. 

• RECFM=FBSA is always assumed for SYSLOUT. 

• If RECFM is omitted, RECFM=F is assumed for SYSLIN and SYSLIB. 

• If BLKSIZE is omitted, the value given to LRECL is assumed. 

• LRECL=121 is assumed for SYSLOUT. 

• If LRECL is omitted, LRECL=80 is assumed for SYSLIN and SYSLIB. 

• If OPTCD=C is used to specify chained scheduling, an additional 2K 
(2048 bytes) of virtual storage is needed in the user's region if the necessary 
data management routines are not resident. 

Note: The SYSTERM data set will always consist of unblocked 81-character 
records with BUFNO=2 and RECFM=FSA. Because these values are 
fixed, the DCB parameter need not be used. 

In addition to the DD statements used by the loader, any DD statements and 
data required by the loaded program must be included in the input deck. 


Loader Macros 


Name 

Operation 

Operand 

f symbol 1 


EP= loadername 


/LINK ) 

PARAM=(optionlist [,ddname list] ) 


lATTACH/ 

VL= 1 


/LOAD! 

EP= loadername 


IXCTL / 



Macro Instruction Basic Format 
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Loader Macro Parameters 


EP 

specifies the symbolic name of the loader. The entry point at which execu¬ 
tion is to begin is determined by the control program from the library direc¬ 
tory entry. 

PARAM 

specifies, as a sublist, address parameters to be passed to the loader. The 
first fullword in the address parameter list contains the address of the option 
list for the loader and/or loaded program. The second fullword contains the 
address of the ddname list. If standard ddnames are to be used, this list may 
be omitted, 
option list 

specifies the address of a variable length list containing the loader and 
loaded program options. This address must be written even though no list is 
provided. 

The option list must begin on a halfword boundary. The two high-order 
bytes contain a count of the number of bytes in the remainder of the list. 

If no options are specified, the count must be zero. 

The option list is free form, with the loader and loaded program options 
separated by a slash (/ ), and with each option separated by a comma. No 
blanks or zeros should appear in the list. 

ddname list 

specifies the address of a variable length list containing alternative ddnames 
for the data sets used during loader processing. If the standard ddnames are 
used, this operand may be omitted. 

The format of the ddname list is identical to the format of the ddname list 
for invoking the linkage editor; the 8-byte entries in the list are as follows: 
Entry Alternate Name For: 

1 SYSLIN 

2 not applicable 

3 not applicable 

4 SYSLIB 

5 not applicable 

6 SYS LOUT 

7-11 not applicable 

12 SYSTERM 

VL 

specifies that the sign bit is to be set to 1 in the last fullword of the address 
parameter list. 
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Loader Return Codes 


Return 

Code 

Loader 
Return 
Code 1 

Loaded 

Program 

Return 

Code 

Conclusion or Meaning 

0 

0 

0 

Program loaded successfully, and execution of the 
loaded program was successful. 

4 

0 

The loader found a condition that may cause an 
error during execution, but no error occurred during 
execution of the loaded program. 

8(LET) 

0 

4 

0 

4 

Program loaded successfully, and an error occurred 
during execution of the loaded program. 

4 

4 

The loader found a condition that may cause an 
error during execution, and an error did occur during 
execution of the loaded program . 

8 (LET) 

4 

8 

0 

8 

Program loaded successfully, and an error occurred 
during execution of the loaded program 

4 

8 

The loader found a condition that may cause an 
error during execution, and an error did occur during 
execution of the loaded program. 

8 (LET), 

8 

8 

! 

The loader found a condition that could make exe¬ 
cution impossible. The loaded program was not 
executed. 

12 

0 

12 

Program loaded successfully, and an error occurred 
during execution of the loaded program. 

4 

12 

The loader found a condition that may cause an 
error during execution, and an error did occur 
during execution of the loaded program. 

8(LET) 

12 

12 


The loader could not load the program successfully, 
execution impossible. 

16 

0 

16 

Program loaded successfully, and the loaded pro¬ 
gram found a terminating error. 

4 

16 

The loader found a condition that may cause an 
error during execution, and a terminating error was 
found during execution of the loaded program. 

8(LET) 

16 

16 


The loader could not load program, execution 
impossible. 


5 Error diagnostics (SYSLOUT and/or SYSTERM data set) for the loader will show 
the severity of errors found by the loader. 
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Loader Virtual Storage Requirements 


Consideration 

Approximate 

Virtual Storage 
Requirements 
(in bytes) 

Comments 

Loader 

Code 

Control 

700 

-- 

Processing 

13664 

_ 

Data Management 

6K 

BSAM 

Object Module Buffers 
and DECBs 

BUFNO(BLKSIZE+24) 

Concatenation of 
different BLKSiZE and 
BUFNO must be 
considered. (Minimum 
BUFNO=2) 

Load Module Buffer and 
DECBs. 

304 

— 

SYSTERM DCB 

Buffers, and DECBs 

312 

Allocated if TERM 
option is specified 

SYSLOUT Buffers 
and DECBs 

' BUFNO (BLKSIZE + 24) 

Buffer size rounded up 
to integral number of 
double words. 

(Minimum BUFNO=2) 

Size of program being 
loaded 

Program Size 

Program size is 
restricted only by 
available virtual storage 

Each external relocation 
dictionary entry 

8 

— 

Each external symbol 

20 

- 

Largest ESD number 

4n 

n is the largest ESD 
number in any input 
module 

Allocated in increments 
of 32 entries 

Fixed Loader Table Size 

1260 

Subtract 88 if NOPRINT 
is specified 

System 

Requirements 

1600 

- 
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Section 7: BTAM/TCAM/VTAM 


This section contains information concerned with telecommunication: 
access methods and devices. 


Source Publications 

Detailed information about BTAM, TCAM, and VTAM is contained 
in these publications: 

• OS/VS BTAM, GC27-6980 

I • OS/VS TCAM Programmer’s Guide, GC30-2054 

• OS/VS Virtual Telecommunications Access Method (VTAM) 

Macro Language Reference Manual, GC27-6995 

• VTAM Concepts and Planning, GC27 -6998 
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BTAM Macros 


Name 

Operation 

Operand 

[symbol] 

AS 

ID=absexp [, ASGROUP=symbol ] 

[ , DEG ROUP=(symbol, absexp) ] 

[symbol] 

ASCTR 

ID=cbsexp, 

HIGH CTR=absexp, 

[,log] 

[,aslog] \ 

[,extralrm] / 

[, N EXTAS=absexp ] 

[symbol ] 

ASLIST 

r - 

device-code, NORM=absexp 
[,LENGTH=(absexpl ,absexp2) ] 

[, DIGIT=(absexpl ,absexp2,absexp3)] 

[,ENTRY={^} ][,MSG='text'] 

[, INQD!SP=absexp ] 

[, MODULUS=(absexpl ,absexp2, 
absexpS)] / NO \ 

[,SELTRAN={£§ } ] 

(Omit) 

ASMTRTAB 

tablename,... 

[symbol ] 

CHGNTRY 

1 i staddr, 1 i sty pe, 1 i stposi ti on, 
numchars, action 

[symbol ] 

/ OPEN \ 
(CLOSE/ 

({deb,,}...), r MF=L ] 

L MF=(E, listname)] 

[symbol ] 

CONFIGUR 

Jco^}] [,*>{$§}] 

[•— o 

, FUNCERR-(absexp,...) ] 

, ENDERR=(absexp,...)] 

, MONERR=(absexp,...) ] 

, GETID=absexp ] 

,STOR!D=absexp ] 

,IDCOUNT=cbsexp] 

[,INQDISP={ig}] 

[symbol ] 

CTRGROUP 

ctrno, 

M, 

[ettest], 

1 D=absexp 

[,SROENAB=/t!2\ ] 

IyesP 
(null i 

[.CTINIT=< NCT \] 

(unasp) 


2715 ONLY 


2715 ONLY 


2715 ONLY 


2715 ONLY 


2715 ONLY 


7-2 OS/VS1 Programmer’s Reference Digest 




BTAM Macros (cont'd) 


Name 

Operation 

Operand 

[symbol] 

CTRLIST 

DEVCOD= ( B | 

^ M / 

CTRADR= (IMP) 
l EXP / ' 

CTRRD= ( SINGLE) 
lGROUP /' 

CTTEST=( NULL \ 

} SETNCT ( 

) SETUNASl 
( RESET ) 

CTROP=/ READ \ 

\ SET i 

) READSET \ 

) READRST ( 

/ RDRESID \ 

V NULL ) 

[,MSG =, text'] 

[symbol] 

CTRSCHED 

sched,... 


DATAMGT 

ACSMETH=BTAM 

symbol 

DC3 

keyword operands 

[symbol] 

DEULIST 


. DIG IT=(absexp 1, absexp2) ] 

,LENGTH=absexpl] 

, MSG='text' ] 

, MO DULUS=(absexp 1 ,absex P 2) ] 
DIGIT2=(absexp1 ,absexp2)j 

symbol 

DFTRMLST 

list type, 

device-dependent 

opercnds 

[symbol ] 

DISPGUID 

DISPMSG='text' 

[symbol ] 

GDUAS 

iD=obsexp, 

G DU N U MB=absexp 

[symbol ] 

GDULIST 

PARAMNO=absexp 
[,(NORGUID=absexp,...) ] 

[ ( DISPMSG=symboin 
l,\ IDENT=absexp JJ 
[, MSG =l text' ] 

[,ENTRY={±r}] 

[symbol ] 

GDUTRANS 

TRCODE=absexp, 

TRLIST=symboln 

[symbol ] 

IODEVICE 


JNIT=type, 

\ D DRESS =address, 

\DAPTER=type, 

CU=type, 

^ODEL=model, 

, FEATURED feature 1, feature2,...) 3 
,SETADDR=type] 

,OBRCNT=n ] 
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BTAM Macros (cont'd) 


Name 

Operation 

Operand 

symbol 

LERB 

nlinesf, { ([transmct] 

[,datack], [,intreq] 

[ ,nontto]) } ...] 

[symbol ] 

LERPRT 

dcbaddr[,rln ][,cid] 
r,CLEAR=YES ] 
l_,CLEAR=NO J 

[symbol] 

LOPEN 

decbaddr 

[symbol ] 

ONLTST 

DECB=decb address, 

X=type of test, 

Y=no. of transmissions, 

DCB=dcb address, 

AREA=rft message area 
[,TEXT=user text area, 

LENGTH=user text length ] 

[,ENTRY=list address] 

[,RLN=Hne number] 

[symbol ] 

OPEN 

See CLOSE 

[symbol] 

PARAMNUM 

PLN=absexp, 

PARMLST =symbol n 

[symbol] 

PARMLIST 

[ CKLNGTH=(length-absexp, 
errguidance-absexp,...) ] 

[,CKMONKY={^}] 

[ ,CKMODll=(length-absexp, 
position-absexp, 
errguidance-absexp,...) ] 

[ ,CKRANGE=(positionl-absexp, 
position2-absexp, 
hilowchars-absexp,...) ] 

[ ,LOWGUID=(absexp,...) ] 
[,HlGUID=(absexp, ...)] 

t' RNGETST ={^}] 

[ ,CKMOD10=(length-absexp, 
position-absexp, 
errguidance-absexp, ...) ] 

[ ,CKOR=( position-absexp, 
checkcharl-hexchar,... 
checkcham-hexchar) ] 

[,ORGUID=(absexp,...)] 

[ ,CKAND=(positionl-absexp, 
posi ti on2 -absexp, 
checkcharl -hexchar, 
checkcham-hexchar) ] 

[,ANDGUID=(absexp,...)] 

[ ,CKNONUM=(positionl -absexp, 
position2-absexp, 
errguidance-absexp, ...) ] 

[, CKNUM=(positionl -absexp, 
posi tion2-absexp, 
errguidance-absexp,...) ] 

[,TRANSL-{^}] 

Mdent^}] 


7-4 OS/VS 1 Programmer’s Reference Digest 




BTAM Macros (cont'd) 


Name 

Operation 

Operand 

[symbol] 

/READ \ 
IWRITE/ 

decbaddr, optype, dcbaddr, 

/ [inoutarea] \ 

\([inarea], [outarea])/ , 

/ [inoutlength] 1 

\ ([inlength] , [outlength]) / , 

[,MF=L] 

[entry], [rln] LMF=eJ 

[symbol] 

RELBUF 

dcbaddr, bufferaddr 

[symbol] 

REQBUF 

dcbaddr, retumreg, [ count) 

[symbol] 

RESETPL 

decbaddr [, POLLING] 

L,ansringj 

[symbol] 

RESETPL 

decbaddr [, ATT ENT ] 

[symbol] 

STEND 


symbol 

TGROUP 

[TCn=(symboln [,E])] 

[name] 

TPEDIT 

MINLN=n[,REPLACE={|^ j] 

‘■ edit -{i5Rr D }1 I.kcfm-Q] 

[,BUFFER= {^}] 

[symbol] 

TRANSLAT 

TRANSCH=hexchar,TRANTXT='text' 

symbol 

TRUST 

■ 

RID=absexpl 

[0]1 

[&}] 

; TEXT *{S§I] 

; INQDISP={^§}] 

, DEMOD10= J 

, DEMODI 1={^§}] 

, GDU= {£§}] 

[symbol] 

TRNSLATE 

[dcbaddr], tablename, area, length 

symbol 

( TRSLRCTW1 
ITRSLRCT3 ) 

Fx=code,... 

Symbol 

fTRSLSCTWl 
ITRSLSCT3 / 

Xyy=Fx,... 

[symbol] 

TWAIT 

(retumreg), 

ECBLIST=ecb list addr 


LOCAL 3270 
ONLY 
2715 ONLY 

2715 ONLY 


IBM 50 

MAGNETIC 

DATA 

INSCRIBER 

ONLY 


2715 ONLY 


World Trade 

Telegraph 

Terminal 

World Trade 

Telegraph 

Terminal 
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BTAM Macros (cont'd) 


Name 

Operation 

Operand 

[symbol] 

WAIT 

[count] 

ECB=ecb address, 

ECBLIST^cb list addr 



See READ 
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BTAM Macro Instruction Format (cont'd) 


Macro 

Instruction 

Operand 

Sym 

Dec 

Dig 

Reg 

ister 

RX- 

Type 

Rel 

Exp 

Abs 

Exp 

Char 

Dec 

Char 

Hex 

Char 

Code * 

(2-12) 

TO 1 

(0) 

DFTRMLST 

(cont'd) 

entrylength 


X 











userlength 


X 











id count 


X 











idsent 











x 


authsequence 











x 


control value 


X 











userdata 







X 






LERB 

niines 








X 





transmct 








X 





datack 








X 





intreq 








X 





notto 








X 





LERPRT 

dcbaddr 

X 


x 

X 









rln 



X 


X 



X 





cid 



X 




X 






CLEAR= 












x 

LOPEN 

decbaddr 

x 


X 










ONLTST 

DECB = 



X 

X 


X 







X = 



X 





X 





Y = 



X 





X 





DCB = 



X 



X 







AREA = 



X 



X 







TEXT = 



X 



X 







LENGTH = 



X 





X 





ENTRY = 



X 



X 







RLN = 



x 





"irl 





OPEN 

deb 







_ 






MF = 












~~7 

listname 



x 



* 







READ 
(list form, 

MF = L) 

decbaddr 

~r 












optype 













dcbaddr 







T~ 






inoutarea 







X 






inarea 







X 






outarea 













inoutlength 








x 





inlength 








X 





outlength 








X 





entry 







i x 



1_ 



rln 







[ 

[T~ 


_ 



MF = L 












As 

Shown 


* See macro description for allowable values. 


7-8 0S/VS1 Programmer’s Reference Digest 





BTAM Macro Instruction Format (cont'd) 


Macro 

Instruction 

Operand 

Sym 

Dig 

Reg 

ister 

RX- 

Type 

Rel 

Exp 

Abs 

Exp 

Char 

Dec 

Char 

Hex 

Char 

Code * 

(2-12) 

(1) 

(0) 

READ 

(Execute 

decbaddr 



X 

X 


X 







optype 












X 


dcbaddr 



X 



X 







inoutarea 



X 



X 






■s' 

inarea 



X 



X 






's' 

outarea 



X 



X 







inout length 



X 





X 




's' 

inlength 



X 





X 




's' 

outlength 



X 





X 





entry 



X 



X 






's' 

rln 



X 





X 





MF = E 












As 

Shown 

READ 

(Standard 

form) 

decbaddr 

X 












optype 












X 

dcbaddr 



X 




X 






inoutarea 



X 




X 





's' 

inarea 



X 




X 





's' 

outarea 



X 




X 






inoutlength 



X 





X 




's' 

inlength 



X 





X 




's' 

outlength 



X 





X 





entry 



X 




X 






rln 



X 





X 





RELBUF 

dcbaddr 



X 

X 


X 







bufferaddr 



X 










REQBUF 

dcbaddr 



X 

X 


X 







returnreq 



X 










count 



X 


X 



"T" 





RESETPL 

decbaddr 



X 

~ 



~ 






POLLING 












As 

ANSRING 












As 

Shown 

ATTENT 










~1 


As 

Shown 

TRNSLATE 

dcbaddr 



X 



X 







tablename 



X 



X 







area 



X 



X 







length 



X 


7 ~ 



X 




's' 

TRSLRCTW 

Pnn = 












X 

TRSLRCT3 

Pnn = 












X 

TRSLSCTW 

Xyy = 












X 

TRSLSCT3 

Xyy - 












X 

TWA IT 

Returnreg 



X 










ECBLIST = 



X 



X 







WAIT 

count 



X 


T 

X 


“ 7 “ 





ECB = 



X 

X 


X 







ECBLI ST = 



X 

X 










* See macro description for allowable values. 
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BTAM Macro Instruction Format (cont'd) 


Macro 

Instruction 

Operand 

Sym 

Dec 

Dig 

Rec 

ister 

— 

RX- 

Type 

Rel 

Exp 

Abs 

Exp 

Char 

Dec 

Char 

Hex 

Char 

Codr 

(2-12) 

0) 

w 

WRITE 

(List form, 
MF = L) 

decbaddr 













optype 












x 

dcbaddr 







X 






inoutarea 







X 






inarea 







X 






outarea 







X 






inout length 








X 





inlength 








X 





outlength 













entry 







X 






rln 








X 





MF = L 












As 

WRITE 
(Execute 
form, MF=E) 

decbaddr 



X 

X 


x 







optype 












X 

dcbaddr 



X 



X 







inoutarea 



X 



X 







inarea 


_ 

x 



X 






‘s’ 

outarea 



X 



X 







inout length 



X 





X 




‘s' 

inlength 



X 





X 




•s' 

outlength 



X 





X 





entry 



X 



X 







rln 



X 





X 





MF= E 












As 

Show 

WRITE 

(Standard 

form) 

decbaddr 













optype 












X 

dcbaddr 







T~ 






inoutarea 

X 






X 






Inarea 

X 






X 





's' 

outarea 

X 






X 






inout length 

’ X 







X 




's' 

inlength 

X 







X 




's' 

outlength 

1 * 





L_ 


r x 





entry 







T1 






rln 

X 













* See macro description for allowable values. 
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2715 User Table Macro Instructions 



Operand 

Sym 

Dec 

Register 

RX- 

Rel 

Abs 

Char 



2m 

Instruction 

Dig 

(2-12) 

(D 

(0) 

type 

Exp 

Exp 

Char 

Char 

AS 

ID= 








X 






ASGROUP- 

X 













DEGROUP= 














tgroupname 

deunumber 

x 







x 




St 

ASCTR 

ID= 








X 






HIGHCTR= 








X 






ROUTE= 












X 


LOG 












HB 


ASLOG 












H 


EXTALRM 












m 


NEXTAS= 








X 





ASLIST 

device 












X 


NORM= 








X 






LENGTH= 
data length 








x 






gdlight2 








x 






DIGIT= 

entrypos 








x 






compvalue 








X 






gdlight3 








x 






ENTRY= 












X 


MSG= 









X 





INQDiSP= 








T~ 






MODULUS- 
entry pos 








x 




■ 


fid length 








X 






gdiight3 








X 




ISPS 


SELTRAN= 












X 

CONFIGUR 

CORE- 












X 


PC- 












mm 


GDU= 












£5 


FUNCERR- 














ENDERR- 








X 






MONERR- 








X 






GETID- 








X 






STORID- 








X 






IDCOUNT- 








X 






INQDISP= 












X 


*See macro description for allowable values. 
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2715-User Table Macro Instructions (cont'd) 



*See macro description for allowable values. 


7-12 OS/VS 1 Programmer’s Reference Digest 

















Line and Station Configuration Supported by BTAM 


Start-Stop Communications 

1. Nonswitched lines (point-to-point or multipoint), using programmed polling: | 

IBM 1030 Data Collection System 
IBM 1050 Data Communications System 
IBM 1060 Data Communications System 
IBM 2260 Display Station — 

IBM 2848 Display Control 
(Remote — 2701 only) 

IBM 2265 Display Station — IBM 2845 
Display Control (Remote — 2701 only) 

IBM 2740 Communications Terminal (Model 1): 

Basic: with checking^; with Station Control^; with Checking and Station 
control^; or with Checking and IBM 2760 Optical Image Unit features 
(point-to-point only, if 2740 is equipped with 2760 Optical Image Unit) 
(Model 2): Basic or with Checking' 

IBM 2741 Communications Terminal 
Western Union Plan 115A Outstations 
AT&T 83B3 Selective Calling Stations 

2. Switched lines: 

IBM 1050 Data Communications System 
IBM 2740 Communications Terminal 

(Model 1): Dial; Dial, with Checking; 

Dial, with Transmit Control; Dial, with Checking and 
Transmit Control, or Dial, with Checking and IBM 2760 
Optical Image Unit features 
IBM 2741 Communications Terminal 
WU Model 33/35 Teletypewriter 
Exchange Terminal (TWX) 

3. Nonswitched multipoint lines using the Auto Poll facility (IBM 2702 or 2703 
only); 

IBM 1030 Data Collection System 

IBM 1050 Data Communications System 

IBM 1060 Data Communications System 

IBM 2740 (Model 1 and 2): with Station Control^ 

_ or with Station Control^ and Checking features __ 

^Used as a regular terminal or as an operator's console, when the operating system 
includes the Multiple Console Support. 

^Station Control feature cannot be used if the 2740 is also used as a console under 
Multiple Console Support. 


Section 7: BTAM/TCAM/VTAM 


7-13 






Line and Station Configuration Supported by BTAM (cont'd) 


Binary Synchronous Communications 

1. Nonswitched point-to-point and switched point-to-point lines: 
iBM System/370 3 

IBM System/360 Model 20 
IBM System/3 

IBM 1130 Computing System 

IBM 1800 Data Acquisition and Control System 

IBM 2715 Transmission Control Unit (Model 1 attaches directly to 
multiplexer channel of central computer; Model 2 communicates 
with central computer via IBM 2701 or 2703) 

IBM 2770 Data Communications System 

IBM 2780 Data Transmission Terminal 

IBM 3735 Programmable Buffered Terminal 
IBM 3741 Data Station 
IBM 3747 Data Converter 

IBM 3750 Switching System (World Trade users only; nonswitched 
point-to-point line only) 

IBM 3780 Data Communication Terminal 

2. Switched point-to-point 

IBM 3275 Equipped with dial feature 
IBM 5275 Direct Numerical Control Station 

3. Nonswitched multipoint lines: 

IBM System/360 Model 20 
IBM System/3 

IBM 1130 Computing System 

IBM 1800 Data Acquisition and Control System 

IBM 2715 Transmission Control Unit (Model 1 attaches directly to 
multiplexer channel of central computer; Model 2 communicates 
with central computer via IBM 2701 or 2703) 

IBM 2770 Data Communications System 
IBM 2780 Data Transmission Terminal 

IBM 2972 (Models 8 and 11) General Banking Terminal System 
IBM 3270 Display System (remote) 

IBM 3735 Programmable Buffered Terminal (requires special feature) 
IBM 3780 Data Communication Terminal 
IBM 5275 Direct Numerical Control Station 


3 The remote System/370 may be a Model 135, 145, 155, 158, 165, 168, or 195. 
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TCAM Macros 


Name 

Operation 

Operands 

[ symbol ] 

CANCELMG 

[mask] j]CONNECT=j AND jj j",LEVEL= j BLK 

[ symbol ] 

CHECK 

decbname 

[ symbol ] 

CHECKPT 

(no operands) 

[ symbol ] 

CKREQ 

(no operands) 

[ symbol ] 

CLOSE 

(dcbname,,...) MF = (L t 

\ (E, listname) / 

[ symbol ] 

CLOSE 

(MCP) 

(dcbname,, ...) 

[ symbol ] 

CODE 

rr tabiename 
| NONE \\ 

Ll (register) JJ 

( symbol j 

COMMBUF 

LIST=name,MAXDEEP=integer 

[ symbol ] 

COUNTER 

opfieid 

[ symbol ] 

CTBFORM 

[opfield][,DVCID= { NO}]|]ENDCHAR= {NO}] 

(YES) {YES} 

f, INSERT= {NO}! 

L {IK}J 

( symbol J 

CUTOFF 

integer 

[ symbol j 

DATETIME 

[ DATE -p}][' T,MN ra 

[ symbol ] 

ERRORMSG 

[mask] f",CONNECT= (AND )1 

OR 

L (nand)J 


(symbol ] I GET 


[ DEST= ( destination nan 
\ opfieid 
) ORIGIN 
' DESTIN 

, DATA= (message ) 
(fieldname/ 

[, EXIT=name of routine 1 

[DEST= / destname \ 

I opfieid I 

I (number) I 

< PUT 

{ ORIGIN I 

V REG(number)7 
[, EOA=characters] 

(, EXIT=name] 
lTHRESH=integer] 

dcbname (, are ana me ] 
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TCAM Macros (cont'd) 


Name 

Operation 

Operands 

grpname 

GROUP 

MH=mhname [ ,8UFSIZE~integer] 

j',BUFMAX=| integer | J £, BUFOUT= | integer || 

f,PCI= /(,A) f [",.TRANS= /tablename\~"i 

L t(,N)/ L \EBCD }J 

[,INVLIST-(listname,...)l 

[, RESERVE=(integerl / integer2)] 

[symbol) 

HOLD 

[mask] [,RELEASE] [, INTVL=integer) 

|\CONNECT= |AND|J £ , LEVEL= |BLK || 

[symbol] 

ICHNG 

grpname, rl n, t a reaname ) [, PS SWRD=chars] 

ACT 

t DEACT ) 

[symbol] 

ICOPY 

grpname, rln,areaname 

[symbol] 

1 ED HALT 
(outmessage or 
inmessage 
subgroup) 

mask,CONNECT= /AND) 

10R f 

[symbol] 

IEDHALT 

(Inheader 

subgroup) 

CHAR= /chars \ 
topfield) 

[symbol] 

IEDOPCTL 

(no operands) 

[symbol] 

INBLOCK 

[ PATH=(opf ie Id, swi tch) ] 

[symbol] 

INBUF 

■ [PATH=(opfieid,switch)] 

[symbol] 

INEND 

(no operands) 

[symbol] 

INHDR 

[ PATH=(opfield, switch)] 

[symbol] 

INITIATE 

! Tconchars r, BLANK- / char \ n -v 

t l ku] 

[symbol] 

INMSG 

[PATH=(opfie Id, swi tch)] 

[symbol] 

INTRO- 

KEYLEN-integer 

UNITSZ=integer 
, LNUNITS=integer 

■“[Sim]"' 

I.ClB.U-t.S.r.-t 



t* ) J 

[,CKREQS=| integer 

[ ,COMMBUF=?integerl, integer2, ihteger3)] 

[,COMWRTE=|YES|J 

[,CONTROL—/ cKaractersV 1 



\0 f J 

[,CPB= j integer|J 
[,CPINTVL=/‘integer! 1 

\ 1800 / J: 

[,CPRCDS=/ integerV *] 



12 IJ 
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TCAM Macros (cont'd) 


Operands 


^symbol) 
I symbol] 


INVLIST 

LOCK 

LOCOPT 

LOG 


integer J 


[,CROSSRF : 

1,DISK= / YESl I 
\ NO j J 

[,DLQ= j entry 
1,DTRACE= j integer 

[,FEATURE=/7NODIAL\ , /N02741\ , j NOTIMER \ 
U DiAL / \ 2741 j \ TIMER / 
, ( NOCONC ), 4 MIXDVTAM > \-| 
sCONCO > l ONLYVTAM} 
ICONC ’ 1 NOVTAM .1 / J 

[, I NTVAL=j integer j J 

[, LiNETYP= (BISC [ STSP | MINI I BOTH > ] 

[ ; MSMAX= | integer j_ J 

[,MSMIN= j Integer ) n 
\50 

l,MSUNITS= j integer^ J 

[, OLTEST= | integer | J 

[,PASSWRD= characters ] 

[,PLCBNO=integer] 
i,PRIMARY- t fermname ) -] 

\SYSCON / J 
[, PROGID=characters] 
l, RESTART^' integer | j 

[,THRESH=Q r integerl j , j integer2 | 

, | integer3 j , | integer4|^j 

[ / TOPMSG=/YES"\1 

INOIJ 

[,TRACE=j integer|J 


l,USEREG= 


integer^ J 


l,VM - ( PROMPT) -| 

\Z jJ 

[,WTTONE=| integer 

ORDER=(entry, EOT=hexchars][,CPUID=addr] I,MASTER= ( YES ) 

(NO / 

( EXTEND \ r,conchars r,BLANK= (YES )T] 

{mesao,; [ [ {e}JJ 

opfield, / (register)\ 

1 (15) I 

( dcbname t 
l typename / 
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TCAM Macros (cont'd) 


Name 

Operation 

Operands 

typename 

LOGTYPE 

dcbname, BUFS1 ZE=size, QUEUES-form 

[ symbol ] 

MCOUNT 

DCB= name 1 
(r) / 

[ symbol 1 

MCPCLOSE 

/QUICK) [,PASSWRD=chars] 
l FLUSH J 

( symbol ] 

MHGET 

{WORK= {(register)} [,RESERVE= {YES}) 

{name} {NO} 

{ REG=(register)} 

[ symbol 1 

MHPUT 

WORK= {(register)} [,RESERVE=integer I 
{name) 

[ symbol 1 

MRCHECK 

(no operands) 

[ symbol J 

MRELEASE 

statname [, PASSWRD=chars) 

[ symbol ] 

MSGEDIT 

((group!), (group2),.. .),BLANK= (NO ) 

< char > 

(yes ) 

[ symbol ] 

MSGFOP.M 

I BLOCK=integer | [,SUBBLCK=integer) 

[ ,COUNT=integer] f,SENDTRP= ( YES, PAD ) l 

L 

[,ENDCHAR=subblock delimiter] 

l'LC = / IN Ij 

l OUT / 1 

[ symbol 1 

MSGGEN 

[mask],/message ) 
l fieldname / 
j’,CONNECT= | AND 

j", CODE= | tablenatne 

[ symbol ] 

MSGLiMIT 

( integer \ 
l opfield / 

[ symbol ] 

MSGTYPE 

f/conchars f|[~, BLANK= ( YES 

[lTABLE=name,EXIT=name]j^ | NO Jj 

I symbol ] 

OPEN 

(dcbname,,...) L MF= ( L )"] 

L ( (E,listname)/J 

[ symbol ] 

OPEN 

(MCP) 

(dcbname, [(( OUTPUT ) [ ,IDLE])1,...) 

1 INOUT > 

L( INPUT ) -1 

17 mf=l n 

Ll MF=(E, listname) /J 

opfldname 

OPTION 

typelength 

( symbol 1 

ORIGIN 

T integer 

L X'FF* 

r,FORM= / id n 

L \ name/J 

[ symbol ] 

OUTBUF 

[ PATH=(opfield,switch)] 
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TCAM Macros (cont'd) 


Name 

Operation 

Operands 

[ symbol ] 

OUTEND 

(no operands) 

[ symbol ] 

OUTHDR 

[PATH=(opRe!d,switch) 1 

[ symbol ] 

OUT MSG 

[PATH=(opfield,switch) ) 

[ symbol ] 

PATH 

switch,opfield^conchare^,BLANK= ^ES 

pcbname 

PCB 

MH=mhname, BUFSI ZE=integer 

|)BUFIN= |numberjj BUFOUT= j number jj 

[, RESERVE=(integerl, integer2)l 
[,SFLAG= /YES), 

(NO) 

[, DATE= /YES). 

(NO/ 

[ symbol ] 

POINT 

dcbname, address 

[ symbol 1 

PRIORITY 

[integer] ^conchars ^ BLANK= ^ YES ^ ~J ^ 

[ symbol ] 

PUT 

dcbname [, areaname ] 

[ symbol ] 

QACTION 

TYPE= (A) , EXIT=name 
{V} 

[ symbol ] 

QCOPY 

termname,areaname [, LIMIT® /Integer ), 

((register)/' 

[ symbol ] 

Q RESET 

dcbname, MAX=i nteger 

[ symbol ] 

QSTART 

(no operands) 

[ symbol ] 

READ 

decbname, S F, dcbname, areaname, 

/length) [MF=/L ), 

('S' J ((E,listname)/ 

[ symbol ] 

READY 

[GMMSG=routine] [,RSMSG=rootine] 

[ symbol ) 

REDIRECT 

[mask] CONNECT® |ANDjj 



I) DEST= < destname)~| 

< opfield > 

L l ORIGIN ) J 

[symbol ] 

RETRY 

INTVL=integer 

[symbol ] 

SCREEN 

(WRE \ rconcharsf,BLANK= (YESVll 

WLA \ m \\\ 
JwDCl L L (char)-IJ 

) XRE / 

/xla i 

VXDC ' 

[ symbol) 

SEQUENCE 

(no operands) 
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TCAM Macros (cont'd) 


Name 

Operation 

Operands 

[symbol] 

SETEOF 

^conchars j;BLANK= | YES jjj 

[symbol ] 

SETEOM 

[ENDCHAR= / chars )] (EOM=ETB] 

L l opfield/J 

£ LENGTHS | integer J ,opfield2)J 

j;pROCESS= jYESjJ |", REMOVE= jYESjJ 

[symbol ] 

SETSCAN 

/ skipchars) [BLANK= (YES)] 



[, POINT= /BACK )] [,MOVE= /RETURN)] 

L lFORWARDL IKEEP /J 



£,RE$ULT= j (register) |J 

[symbol ] 

SLOWPOLL 

[mask] [,CONNECT= {AND} ][,SECONDS= {integer}] 

{OR} {60} 

mhname 

STARTMH 

LC= /IN ) f,/STOP )= /YES )] 

lOUT/L ICONTJ \(opfield,switch)/J 



f,CONV= (YES )] 

| (opfield, switch)^ 



[,LOGICAL= / (opfield) )] 

L t (opfieldl .switch,opfield2);J 

[symbol ] 
[symbol ] 

TCHNG 

TCOPY 

rr)]H» n 

L * (opfield,switch) ) J 

termname,areaname |, PASSWRD=chars ) 
statname, areaname 

[symbol ] 

TERMINAL 

QBY= TT) /, DCB=dcbname ) , RLN=integer,TERM=type 
\ L; l,GROUP=grpname/ 

f ( REMOTE ) ] 

,QUEUES=form ,DIALNO= < chars > [,ADDR = chars] 

L (none 

|, LEVEL=(integer,.. .)] (, CLOCK=time] 

[, ClNTVL=integer] I, BUFSI ZE=integer ] 

[,ALTDEST=entry) |,BFDELAY=integer] 
l,NTBLKSZ=(blocksize,subblocksize)] 

[, TBLKSZ=integer ] [,OPDATA=(data, ...)] 

[, RETRY=integer ] j)lMD= |YESjJ j;MB= jYES 

rSECTERM= /YES 1] [,FEATURE= / ATTN Yl 

L (NO/J L INOATTN/J 

E COMP= {£}] [ UTERM= )]£}] 

[,SPECOUT= /YES) , 
iNOJ J 

[TERMID=nl 
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TCAM Macros(cont'd) 


Name 

Operation 

Operands 

[symbol] 

TERMINAL 

(continued) 

[, DVCI D= ( (CONC [, integer]) ) ] 
chars 

L { NONE ;J 

( ALL ) 

|]QCNTRL=( | (MSG^, | msgcount jj ) ( 



t bytecount / 

[,L ] [STATUS] [,char])I 
[, CTBMAX=i n teger ] J 

[ symbol ] 

TERRSET 

(no operands) 

[ symbol] 

TGOTO 

MH= { name of MH ) 

{opfield) 

[ symbol ] 

[symbol] 

TUST 

TPDATE 

TYPE= | C) j, LIST=(entry, entry,...) 

DCB= | name j |\RECDLM= j YES Jj 




[name ] 

TPEDIT 

MINLN=n,EDIT= i EDITR KRECFM= | U), 
l EDITD / l VJ 



ERROPT= ( name 1 ,VERCHK= f VOKCHK ) 

X IGNORE / l NOCHK h 



REPLACE= / X'xx’ ) ,BUFFER= [ YES ) 
l XM9' / l NO/ 

procname 

TPROCESS 

PCB=pcbname [,QUEUES=form ] [, ALTDEST=entry ] 



[• C ™{ Y ^}][ DATE= {^}] 



pECTERM= | YES [,RECDEL=delimiter ] 



[,LEVEL=(integer,...)] [,OPDATA=(data,...)] 



[,QBAOC"|YKJ] 



[' SECU “1^}] 

[ symbol] 

TTABLE 

LAST=name [,MAXLEN=integer] [,OLTERM=n ] 

[ symbol] 

TYPETABL 

conchar, ROUTINE=name 

[symbol] 

UNLOCK 
(Outheader 
or inheader 
subgroup) 

j'conchars |",BLANK= |YES ^ 

[symbol] 

UNLOCK 
(Outmessage 
or inmessage 
subgroup) 

[mask] 

r ,CONNECT= IOR )] 

L \ and/J 

['“ Iv^}] 

[symbol] 

WRITE 

decbname, SF , dcbname, area name, j length j 
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TCAM Operator Commands 


Control Chars 


control chars 


Operation 


(DISPLAY) 

(D) 


( 


Operands 

TP,ACT, { grpname, rln } 

(address } 

TP,ADDR, statname 

TPJNACT, ( grpname,rln } 
{ address } 


TP,INTER 

TP,LINE, { grpname,r!n ) 
{ address ) 

TP,UNE,INACTIVE 


TP, LIST, {grpname,rln } 1 

< (cddress } > 

(* 

TP,OPTION,statname,opfldname, < C 
( D 


TP,PRIT£RM 
TP,QUEUE,statname 
TP,SECTERM 
TP,STATUS 


( ddname t 
' (address ) 


( ddname ( 

( address / ' 


TP, STORE, 

V, TP,TERM,statname 


(HALT) 

(Z) 


TP, (QUICK) 
(FLUSH) 


(HOLD) 

(H) 


(MODIFY) 

(F) 


jobnamo 

procname 


,ACTIV= (ddname )[,FDLE] 

(address ) 

,AUTOPOLL= ( grpname, rl n } , ( ON I 
( address} I OFF / 

, BACKUP= ( ddname ) 

( address } 

,BHSET=statname, { C } f,aaal 
( A > 


,'BTRACE= ( linename ), (ON 
( grpname,rln ) (OFF ) 

,CHANL=( ddname ) 

( address } 

,CHNGMODE= (grpname,rln } [,AUTO] 

{ grpname^, ALL ] } [,MANUAL] J 
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TCAM Operator Commands (cont'd) 


Control Chars 

Operation 

Operands 

control chars 

(MODIFY) 

<F) 

(cont'd) 

i 

procname.id 

! d < 

Jobname 

procname 

' ,DEACT= (ddname) ,[QUICK] \ 

{address} [FLUSH] 

, DEBUG= { L } , {IEDQFE10 ) 

{ D} {IEDQFE20 } 

{IEDQFE30 } 

, DUMP= {ddname } 

{address } 

,INTENSE= { LINE, { grpname,rln } ) ,sense,[count] 
(address} [ 15 ] 

{ TERM,statname} 

, INTERVAL=POLL,statnome,data, (S } 

(N} 

, INTERVAL=SYSTEM[, data ] 

, IPL= ( ddname ) 

{ address } 

, LNSWITCH=grpname, rln, <EP} 

(NCP) 

, LOAD= ( ddname ) , txt 
( address } 

,OPERATOR= ( statname } 

( SYSCON } 

, OPT=statnnme, opfldname, data 

,SESSION=grpname, rln,aaa 

,SPEED=grpname,rln, ( H ) 

< L ) 

, SWAP=concname, statname 1, statname2 

,SWBACK= { ddname 1 ) , ( ddname2 } 

( addressl } | address2 ) 

,SWDEVICE=statmme,[p] 

[B[grpr,ame,rln]] 

,SWITCH= {ddname} 

(address } 

,TIMEDAT - { ddname} 

( address } 

,TRACE= { grpname,rln ) , (ON) ,aaa,bbbbb 

(address) (OFF) 

{ addr3705/addrline } 

\ ,TRANLMT=statname,aaa /. 

> 
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TCAM Operator Commands(cont'd) 


Control Chars 

Operation 

Operands 

control chars 

{ RELEASE 
{A} 

TP=statname 

control chars 

{ VARY } 

(v) 

< 

gpstatname,ONTP, | ^ j 

statname, ONTP,B 

statname, ONTP, E 

gpstatname, OFFTP, j g } 

statname, OFFTP, } 

statname, OFFTP, j ^ 

{ (grpname,rln) } ,OFFTP, (c> 
{(grpname,)} {| } 

{ address } 

{(grpname, ALL)} 

{ (grpname,rln) } ,ONTP 
{(grpname,) } 

{ address } 

^grpname, ALL)} y 

> 
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Device Configurations Supported by TCAM 



IBM 1030 Data Collection System 

IBM 1050 Data Communication System 

IBM 1060 Data Communication System 

IBM 2740 Communication Terminal 

IBM 2740 Model 2 Communication Terminal 

IBM 2741 Communication Terminal 

IBM 2760 Optical Image Unit 

IBM 2843/2260 Display Complex (Remote) 

IBM 2845/2265 Display Complex (Remote) 

AT&T 83B3 Selective Calling Stations 

WU Plan 115A Outstations 

TWX Models 33 and 35 

World Trade Telegraph Terminals 

IBM 2770 Data Communication System 

IBM Data Transmission Terminal 

IBM 1130 Computing System 

IBM 2790 Data Communication System 

IBM 2922 Programmable Terminal 

IBM 3270 Information Display System 

IBM 3670 Brokerage Communication System 

IBM 3735 Programmable Buffered Terminal 

IBM 3740 Data Entry System 

IBM 3780 Data Communication Terminal 

IBM System 3 

IBM System/360 Model 20 

IBM System/360 Models 25 and above 

IBM System/370 Models 135 and above 

IBM 1030 Data Collection System 

IBM 1050 Data Communication System 

IBM 1060 Data Communication System 

IBM 2740 Communication Terminal 

IBM 2740 Model 2 Communication Terminal 

IBM 2741 Communication Terminal 

IBM 2760 Optical Image Unit 

AT&T 83B3 Selective Calling Stations 

WU Plan 115A Outstations 

TWX Models 33 and 35 

World Trade Telegraph Terminals 

IBM 1030 Data Collection System 

IBM 1050 Data Communication System 

IBM 1060 Data Communication System 

IBM 2740 Communication Terminal 

IBM 2740 Model 2 Communication Terminal 

IBM 2741 Communication Terminal 

IBM 2760 Optical Image Unit 

IBM 2770 Data Communication System 

IBM 2780 Data Transmission Terminal 

IBM 2790 Data Communication System 

IBM 2922 Programmable Terminal 

IBM 3270 Information Display System 

IBM 3670 Brokerage Communication System 

IBM 3735 Programmable Buffered Terminal 

IBM 3740 Data Entry System 

IBM 3780 Data Communication Terminal 

IBM System 3 

IBM System/360 Model 20 

IBM System/360 Models 25 and above 

AT&T 83B3 Selective Calling Stations 

WU Plan 115A Outstations 

TWX Models 33 and 35 

World Trade Telegraph Terminals 

IBM System/370 Models 135 and above 


IBM 2260 Display Complex (Local) 
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Device Configurations Supported by TCAM (cont'd) 



3705 with 
the Emulatii 
Program 


BM 3270 Information Display System (Local) 


Start-Stop Terminals 

|BM 1030 Data Collection System 

IBM 1050 Data Communication System 

IBM 1060 Data Communication System 

IBM 2740 Communications Terminal, Models 1 and 2 

IBM 2741 Communications Terminal 

IBM 2760 Optical Image Unit (via the IBM 2740 Communications 
Terminal, Model 1) 

IBM 2845/2265 Display Complex 
IBM 2848/2260 Display Complex 

IBM System 7 (supported as an IBM 2740 Communications 
Terminal, Model 1, with the Record Check feature) 

Binary Synchronous Terminals 

IBM 2270 Data Communications System 

IBM 2780 Data Transmission Terminal (no support for Transcode) 

IBM 2922 Programmable Terminal 
IBM 3270 Information Display System 

IBM 3670 Brokerage Communication System (supported only in 
the United States and Canada) 

IBM 3735 Programmable Buffered Terminal 
IBM 3780 Data Communication Terminal 

Transmission Control Units (BSC support only) 

IBM 2701 Data Adapter Unit (with Synchronous Data Adapter Type II) 
IBM 2703 Transmission Control (with Synchronous Terminal Control) 
IBM 2715 Transmission Control, Mode! 2 
IBM 3705 Communications Controller 

Note: The IBM 2701, IBM 2703, and IBM 3705 control units are 
supported only when attached locally to an IBM System/360 or 
System/370. 

Computers (BSC support only) 

IBM 1130 Computing System (with Synchronous Communications 
Adapter) 

IBM System 3 

IBM System/360, Model 20 (with Binary Synchronous Com¬ 
munications Adapter) 

IBM System/360, Model 25 and above (with Integrated Com¬ 
munications Attachment with Synchronous Data Adapter II) 

IBM System/370, Model 135 and above (with Integrated Com¬ 
munications Attachment with Synchronous Data Adapter II) 


Other Devices 

• World Trade teleprinters that use CCITT=2 or =5 code leased 
point-to-point, leased multipoint, or switched network lines. 

• Terminals using the following line control disciplines: 

AT&T 83B3 or-WU U5A start-stop code, over point-to-point or 
multipoint leased telegraph lines: AT&T CPT-TWX (33/35) 
start-stop code over switched lines. 


Attachment of non-IBM device is under the provisions of the 
IBM Multiple Supplier Systems Policy. 
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Device Configurations Supported by TCAM (cont'd) 

Start-Stop Terminals 

IBM 1050 Data Communication System 
IBM 2740 Communications Terminal, Models 1 and 2 
IBM 2741 Communications Terminal 
IBM System/7 (supported as an IBM 2740 Communica¬ 
tions Terminal Model 1, with the Record Check 
feature) 

Binary Synchronous Terminals 


CPU 


3705 with 
the Network 
Control 
Program 


IBM 2770 Data Communication System 
IBM 2780 Data Transmission Terminal (no support for 
T ranscode) 

IBM 2972 General Banking Terminal System, Models 8 
and 11) 

IBM 3270 Information Display System 
IBM 3735 Programmable Buffered Terminal 
IBM 3780 Data Communication Terminal 

Transmission Control Units (BSC support only) 

IBM 2701 Data Adapter Unit (with Synchronous Data 
Adapter Type II) 

IBM 2703 Transmission Control (with Synchronous 
Terminal Control) 

IBM 2715 Transmission Control Model 2 
IBM 3705 Communications Controller 

Note: The IBM 2701, IBM 2703, and IBM 3705 control 
units are supported only when attached locally to an 
IBM System/360 or System/370. 

Computers (BSC support only) 

IBM System/3 

IBM System/360, Model 20 (with Binary Synchronous 
Communications Adapter) 

IBM System/360, Model 25 and above (with Integrated 
Communications Attachment with Synchronous Data 
Adapter) 

IBM System/370, Model 135 and above (with Integrated 
Communications Attachment with Synchronous Data 
Adapter II) 

IBM 1130 Computing System (with Synchronous 
Communications Adapter) 

IBM 1800 Data Acquisition and Control System (with 
IBM 1826 Data Adapter Unit with Communication 
Adapter) 


Other Devices 

• World Trade teleprinters that use CCITT No. 2 or 
No. 5 code on leased point-to-point lines. 

• Terminals using the following line control disci¬ 
plines: AT&T 83B3 or WU 115A start-stop code, 
over point-to-point or multipoint leased telegraph 
lines: AT&T CPT-TWX (33/35) start-stop code 
over switched lines. 

Attachment of non-IBM terminals is under the pro¬ 
visions of the IBM Multiple Supplier Systems Policy. 
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Device Configurations Supported by TCAM(cont'd) 


Station Type 

Channel Type 

TCU 

Audio 

Response 

Unit 

Line Type 

Notes 

Multi¬ 

plexer 

Selector 

IBM 2701 
Data 
Adapter 
Unit 

IBM 2702 
Trans¬ 
mission 
Control 

IBM 2703 
Trans¬ 
mission 
Control 

IBM 3705 
EP 

Comm 

Con¬ 

troller 

IBM 3705 
NCP 
Comm 
Con¬ 
troller 

IBM 7770 
Model 3 

Switched 

Non- 

Switched 

IBM 2741 

Communi cation 

Terminal 


X 


X 

X 

X 

X 

X 


X 

X 


IBM 1130 Computing 
System 


X 


X 


X 

X 

X 


X 

X 

BSC transmission 

IBM 1800 Data 
Acquisition System 








X 





IBM 2760 Optical 

Image Unit 










X 

X 

Attached to a 2740 Model 1 with 
record checking 

IBM 2770 Data 
Communication 

System 


X 


X 


X 

X 

X 


X 

X 

BSC transmission using either 

ASCII or EBCDIC code 

IBM 2780 Data 
Transmission Terminal 


X 


X 


X 

X 

X 


X 

X 

BSC transmission ASCII, EBCDIC, 
or 6-bit code 

IBM 2790 Data 
Communications 

System 


X 


X 


X 

X 

X 


X 

X 


IBM 2972 General 
Banking Terminal 








X 





IBM 3270 Information 
Display System 


X 


X 


X 

X 

X 



X 


IBM 3670 Brokerage 
Communication 

System 


X 


X 


X 

X 




X 

BSC transmission using EBCDIC 
code 

IBM 3735 Program¬ 
mable Buffered 

Terminal 


X 


X 


X 

X 

X 


X 

X 

Either ASCII or EBCDIC 

IBM 3740 Data Entry 
System 


X 


X 


X 

X 



X 

X 

BSC Transmission code TERM= 

BSCI or TERM=BSC2 on 

TERMINAL macro 

IBM 3780 Data 
Communication 

Terminal 


X 


X 


X 

X 

X 


X 

X 

BSC transmission using either 

ASCII or EBCDIC code 

IBM System 3 


X 


X 


X 

X 

X 


X 

X 

Code TERM=202A or TERM=202B 
on TERMINAL. Macro inquiry/ 
response not supported 

IBM System 7 








X 





IBM System/360 

Model 20 


X 


X 


X 

X 

X 


X 

X 

BSC transmission using either 

ASCII or EBCDIC code 
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Section?: BTAM/TCAM/VTAM 7-31 


Station Type 

Channel Type 

TCU 

(Audio 

Response 

Unit 

Line Type 

Notes 

Multi¬ 

plexer 

Selector 

IBM 2701 
Data 
Adapter 
Unit 

IBM 2702 
Trans¬ 
mission 
Control 

IBM 2703 
Trans¬ 
mission 
Control 

IBM 3705 
EP 

Comm 

Con¬ 

troller 

IBM 3705 
NCP 
Comm 
Con¬ 
troller 

IBM 7770 
Model 3 

Switched 

Non- 

Switched 

IBM System/360 Model 
25 and above 


X 


X 


X 

X 

X 


X 

X 

BSC transmission and point-to- 
point lines only 

IBM System/370 Model 
135 and above 


X 


X 


X 

X 

X 


X 

X 

BSC transmission and point-to- 
point lines only 

IBM System/370 Model 
135 Integrated 
Communication 
Attachment 








X 





AT & T 83B3 Selective 
Calling Station 


X 

i 

X 

X 

X 

X 

X 



X 


Western Union Plan 

115A Outstations 


X 


X 

X 

X 

X 

X 



X 


TWX Models 33 and 35 


X 


X 

X 

X 

X 

X 


X 


Teletype terminals, dial service 
(8 level code) 

World Trade Telegraph 
Terminals 


X 


X 

X 

X 

X 

X 



X 

Control uni* must incorporate a 
WTTA 


Audio terminals 


X 


X 


X 


Example IBM 2721 Portable 
Audio Terminal 


Device Configurations Supported by TCAM (cont'd) 






VTAM Macros 


ACB - Create an Access Method Control Block 




Operands 

[symbol] 

ACB 

AM=VT AM 

[,APPLID=address of application's symbolic name] 
[,PASSWD=password address] 

[,EXLST=exit list address] 

[ > macrf={logoninl.ogon}] 

CHANGE - Change a NIB's PROC Option or USERFLD Data 

[symbol] 

CHANGE 

RPL=rpl address 

[,rpl field name=new value]... 

CHECK - Check Request Status 

! [symbol] 

CHECK 

RPL=rpl address j 

CLOSE - Close One or More ACBs 

[symbol] 

CLOSE 

(acb address[„acb address]...) 

CLSDST - Disconnect a Terminal from the Application Program 

[symbol] 

CLSDST 

RPL=rpl address 

[,rpl field name=new value]... 

DO - Initiate L DO-specified I/O Operations 

[symbol] 

DO 

RPL=rpl address 

[,rpl field name=new value]... 

EXECRPL - Execute a Request 

[symbol] 

EXECRPL 

RPL=rpl address 

[,rpl field name=new value] ... 

EXLST - Create an Exit List 

[symbol] 

EXLST 

AM=VTAM \ 

[,DFASY= I 

[,RESP= Vexit routine address] 

[,SC!P= ( 

[ # LERAD= ) 

[,SYNAD= \ 

[,TPEND= / 

[,RELREQ= f 

[ LOGON= / exit routine address] 

[,LOSTERM= V 
[,ATTN= J 

GENCB -- Generate a Control Block 



BLK={ACB] EXLST iRPLlNiB} 

[,keyword=value] ... 

[,COPIES=|i Jquantity|] 
rWAREA=work area address ! 

|_,LENGTH=work area length J 
[,MF={L|((j L|,|address |[.label] ) )}] 

f E,parameter list address j 
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VTAM Macros (cont'd) 

INQUIRE -- Obtain Terminal Information or Application Program Status 


Name 

Operation 

Operands 

[symbol] 

INQUIRE 

RPL=rpl address 

[,rpl field name=new value]... 


INTRPRET - Interpret a Logon Message 



[symbol] INTRPRET RPL=rpl address 

[,rpl field name=new value]... 

LDO - Create s Logical Device Order 

[symbol] LDO CMD-command 

[,ADDR=data address or data area address] 
[,LEN=data length or data area length] 
[,FLAGS=C |D] 


MODCB - Modify the Contents of Control Block Fields 

[symbol] MODCB AM=VTAM 

/,ACB=acb address \ 

),EXLST=exit list address v 
|,RPL=rpl address ( 

\,NIB=nib address ' 

(,field name^new value}... 

[,MF=|l| ((jL |,jaddress|[,label] ))}] 

fE,parameter list address! 


NIB - Create a Node Initialization Block 

[symbol] NIB [NAME=name in resource definition table] 

[,USERFLD=fu!lword of terminal data] 
f.SDT=APPL I SYSTEM l 
[,EXLST=exit list address] 

[,RESPLIM=response limit] 
LLISTEND={YES|NO}] 

[,MODE=BASiC] 

r / [./block|msgi trans |cont}]\ 

/ [,{lGOUJ|NLGOUT}] ' 

[,{LGIN|NLGIN}] 

[,/dfasyx|ndfasyx|] 

[.{respxi nrespx |] 

[.{cONFTXT [NCONFIXt }] 

[.{ tmfll intmfll}] 

f.|EIB lNEIB }l 

,PROC= f.< TIMEOUT |NTIMEOUT}l 
f.< ERPIN jNERPIN}] 
r.< ERPOUT |NERPOUT 
[,{ MON ITOR jNMONITOR } ] 

[,|asyipx|nasyjpx|] 
[.{elci nelc }] J 

[.{trunci keep }] / 

L [.{BINARY| NBINARY }] / 

OPEN -- Open one or more ACBs 

I [symbol] I OPEN (acb address[„acb address]...) 
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VTAM Macros (cont'd) 


OPNDST - Establish Connection with Terminals 


Name 


Operands 

[symbol] 


RPL=rpl address 

[,rpl field name=new value]... 

READ -- Read Data into Program Storage 

[symbol] 

READ 

RPL=rpl address 

[,rp! field name=new value]... 

RECEIVE- 

Receive Input from a Logical Unit 

[symbol] 

RECEIVE 

RPL=rpl address 

[,rpl field name=new value]... 

RESET -- Cancel an I/O Operation 

[symbol] 

RESET 



RESETSR - Cancel an I/O Operation or Switch CS-CA MODE 


[symbol] 

RESETSR 

RPL=rpl address 



[,rpl field name=hew value]... 
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VTAM Macros (cont'd) 

RPL - Create a Request Parameter List 



Operation 

Operands 

[symbol] 

RPL 

AM=VTAM 

[,ACB=acb address] 

[,NIB=nib address] 

[,AREA=data area address] 

[,AREALEN=data area length] 

[,RECLEN=data length] 

[,AAREA=alternate data area address] 

[,AAREALN=alternate data area length] 
n,ECB=event control block address ) ~\ 

Li.EXIT=rpl exit-routine address \ J 

[,SEQNO=sequence number] 

[,POST=SCHED| RESP1 

r.RESPOND=(EX| NEX.FME| NFME.RRNI NRRN)1 
f.CONTROL={PATA| QEC| RELQ| QC| CANCEL] CHASE| 
SHUTD| BID] LUS| SDT| CLEAR| STSN} ] 
f.CHAIN=FIRSTI MIDDLE 1 LAST1 ONLY] 

[,CHNGDIR=(CMD| NCMD.REQl NREQil 
[,BRACKET=(BB| NBB.EB I NEB)] 

[,RTYPE=(DFSYNj NDFSYN.DFASYl NDFASY.RESPl NR ESP)] 
[,STYPE=REQ | R ESP] 

[,SSENSEO=CPM| STATE I FI |RR] 

[,SSENSMO=system sense modifier value] 

[,USENSEO=user sense value] 
f,IBSQAC=SETI TESTSETI INVALID| IGNORE] 
f.OBSQAC=SETITESTSET 1 INVALIDl IGNORE] 
[,IBSQVAL=inbound sequence number] 

[,OBSQVAL=outbound sequence number] 
f [,{CONALL CONANY} ] “ 

F.NIBTKITRUNKIKEEP1 
f.FMHDRINFMHDRl 
f.lACCEPTIACQUIRE}! 
f.(SPECIANY}l 

[,{ quiesce|stopistart}i 

r/PASSIRELEASE}] 

r./ LOGONMSGIDEVCHARI 

OPTCD= COUNTS|TERMS|APPSTAT| 

CIDXLATE|TOPLOGON|BSCID}] 

fl(SYN|ASY}l 

[.{csica}] 

[.{blkilbmilbt}] 

f.|cONVINCONV}l 

[.{ QQhlfi(UNCOND|LOCK}] 

f.j eraseieauinerase}i 

f/RELRQINRELRQ}] 

L [,{Q|NQ}] L 
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VTAM Macros (cont'd) 

SEND - Send Output to a Logical Unit 



Name I Operation I Operands 


[symbol] SEND RPL=rpl address 

[,rpl field name=new value] ... 


SESSiONC ■■ Send an STD, Clear, or STSN indicator to a Logical Unit 


[symbol] SESSIONC RPL=rpi address 

[,rpl field name=new value]... 


SETLOGON ■■ Reset an ACB's Logon Status 


SHOWCB - Extract the Contents of Control Block Fields _ 

[symbol] SHOWCB AM=VT AM 

/, ACB=acb address \ 

\ ,EXLST=exit list address l 
\ ,RPL=rpl address ^ 

NIB=nib address / 

,FIELDS=|field name](field name,... 
,AREA=data area address 
,LENGTH=data area length 
[,MF-{L| U jL j,jaddressj[,label] ) 

(E.parameter list address* 


SiMLOGON -- Generate a Simulated Logon Request 


SIMLOGON RPL=rpl address 

[,rpl field name=new value]... 


SOLICIT -- Obtain Data from a Terminal 


[symbol] SOLICIT RPL=rpl address 

[,rpl field name=new value]... 


TESTCB -- Test the Contents of a Control Block Field 


AM=VTAM 

/,ACB=acb address 'j 

\ ,EXLST=exit list address ( 

\ ,RPL=rpl address ^ 

(,NIB=nib address / 

,field name=test value 
[,ERET=error exit routine address] 
[,MF={l | (j | L j,j address j [.label] 

[E.parameter list address 



WRITE - Write a Block of Data from Program Storage to a Terminal 






































Devices Supported by VTAM; Processing Options 


Start-Stop Devices: 

PROC operand value j 

V 

8 

0 

5 

z 

< 

1— 

z 

O' 

0 

LG OUT 

(— 

X 

t 

z 

o 

u 

5 

5 

CO 

h- 

8 

1 

z 

z 

z 

(— 

Z3 

o 

z 

o 

z 

o 

5 

2 

>• 

< 

y 

u 

z 

3 

u 

u 

< 

IBM 1050 Data Communication System 

X 


X 

X 


X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

IBM 2740 Communication Terminal, Model 1 



X 

X 

. 

X 

X 


X 




X 

X 


X 

IBM 2740 Communication Terminal, Model 1 
with checking 

X 


X 

X 


X 

X 


X 

X 

X 


X 

X 

X 

X 

1BM 2740 Communication Terminal, Model 1, 
with station control 



X 

X 


X 

X 


X 




X 

X 

X 

X 

1 BM 2740 Communication Terminal, Model 1, 
with checking and station control 

X 


X 

X 


X 

X 


X 

X 

X 


X 

X 

X 

X 

IBM 2740 Communication Terminal, Model 2 



x 

X 






X 

X 


X 


X 

X 

IBM 2741 Communication Terminal 



X 

X 


X 

X 


hr 



XI 

X 

XI 

X 

X 

IBM Communicating Magnetic Card 

Selectric Typewriter 



X 

X 


X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

IBM World Trade Telegraph Station 



X 

X 


10 







X 

X 

X 

X 


■ 

■ 

B 

13 


E3 

■ 


13 




13 

13 

13 

13 

AT and T 83B3 Selective Calling Station 


■ 

B 

□ 

■ 

B 

■ 






E3 

13 

H 

13 

CPT-TWX Models 33 and 35 



E3 

13 


13 

13 


13 




13 

13 

13 

13 

Western Union Plan 115A Station 



S3 

B 

■ 

B 

■ 






X 

2^ 

Xj 

X 

Binary Synchronous Devices: 




■ 

■ 

■ 



. 








■MAI SgESEBffigBBgSESaaMl 

B 

B 

B 

B 


B 

■ 

B 

■ 

13 

13 

■ 

13 

a 

13 

13 

IBM 2780 Data Transmission Terminal 

X 

X| 

XI 

X 


X 


X 


X 

X 


X 

X 

x 

U 

i3M 2972 General Banking Terminal, 

Models 8 and 11 



X 

X 


X 


X 


X 

X 


X 

X 

X 

B 

IBM 3270 Information Display System, 
locally attached to controller 



X 



X 







X 


X 

B 

IBM 3270 Information Display System, 
remotely attached to controller 



X 



X 







X 


X 

B 

IBM 3735 FYogrammable Buffered Terminal 

X 

A 

h x 

Xi 

X 

X 


hr 


X 

X 


X 

X 

X 

X 

1 BM 3740 Data Entry System 

X 

x 

X 

X 


X 


X 


X 

X 


X 

X 

XI 

X 

IBM 3780 Data Transmission Terminal 

X 

X 

X 

X 


X 


X 


X 

X 



X 

X 

X 

IBM SYSTEM/3 

X 

lx 

Xl 

rx 

10 

X 


X 



X 


X 

X 

X 

X 

IBM SYSTEM/370 

X 

X 

X 

X 

X 

10 


X 


X 

X 


X 

X 

X 

X 

SNA Devices: 

















IBM 3600 Finance Communication System 






X 









X 

X 

1 BM 3650 Retai 1 Store System 






X 









X 

X 

IBM 3660 Supermarket System 






X 









X 

□ 

IBM 3767 Communications Terminal 






X 









X 


IBM 3770 Data Communications System 






X 









X 

X 

IBM 3790 Communication System 






X 









X 

13 

IBM 3270 SNA Information Display System 






X 









X 

X 

IBM System 32 Batch Work Station 






X 









X 

a 
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Terminals Operating in a VTAM Network 


Summary of Terminals That Can Operate in a VTAM Network (GC27-6998) 


Device 

Type of 
Network 

Comments 

Local 

3270 


3277, 3284, 3286 require 3272 Control Unit 

SDLC 


SDLC terminals are logical units 

3601 

b, c 

3600 Finance Communications System 

3651 Models 

50, 60 

b, c 

3650, 3660 Retail 

Store System 

3767 

a,b,c 

3767 Communications Network 

3770 

a,b,c 

3770 Data Communications System 

3791 

b, c 

3790 Communications 

System 

Start-Stop 

1050 

a, c 

105x, 109x Terminals 

2740 Model 1 

a, b, c 


2740 Model 2 

b, c 


2741 

a, b 


AT&T 33/35 
TWX 

Q 


AT&T 83B3 

c 


WU 115A 

c 


Communicat¬ 
ing Mag Card 
SELECTRIC 
Typewriter 



System/7 

a, b, c 


World Trade 
Telegraph 

b 


BSC 

2770 

a, b, c 

Uses 2772 Control Unit 

2780 

a, b, c 


2972 Models 

8, 11 

c 

Terminals are 2980, 2971 

3270 

c 

Terminals 3277, 3284, 3286 require 
3271/3275 Control Unit 

3735 

a, c 

5496, 3286 

3740 

a, b, c 

3741, 3747 

3780 

a, b, c 


System/3 

a, b, c 


System/7 

a, b, c 


System/370 

a, b 

2701, 2703, 3704, 3705; ICA 

Network Types 
a -Point-to-Point Switched 
b - Point-to-Point Nonswitched 
c - Multipoint Nonswitched 


7-38 OS/VS 1 Programmer’s Reference Digest 




VTAM Network Operator Commands (GC27-6997) 


Command Operand Field 


|display| 

(r L, | 


f application program name \ 

1 duster name ( 

\ line name [ 

v ncp name ) 

{ terminal name 

physical unit name, {flA7V/|P} 


.every |e 

.ACT|A 
,INACT|l 
. NONE In 


NET [.QUICK] 


|modify| 


DUMP. ID =ncp name [.RMPO] 

NEGPOL L=number, \D=Hne name 
NETSOL= {YES|NO } 

POLL=numfcer, \D=Hne name 

SESS\ON=number, ID =Hnename 

SUPP= { NOSUP | INFO | WARN | NORM | SER} 


[procname.] identifier * 


l TRACE \ 

(NOTRACE J ' 


/ duster name \ 

J component name I ^ 

i ncp name l ' 

{terminal name ) 

line name, TYPE=LINE 
VTAMBUF. TYPE=SMS 


J • TYPE= {buf} 


TRANLIM=wi#mber, lD=terminal name 


{r" T } 


procname [.identifier] [, ,, (parameters ,...)] 

The parameters are: 

CONFIGHtf 
LIST=*/ 

MAXSUBA-m/m6er 

NETSOL- {yES|No} 

supp= ( nosup ! info I warn I nor m|ser) 


SSCPID=number ( 



iduswrname \ \ 

, , \ 


,ID= 

1 component name l J 

j TRACE 1 J 

\buf| 


| ncp name j V 

\ NOTRACE / 'TYPE* \ 



\ terminal name ) > 


APBUF=ftmo, bsz, bth) • 
CRPLBUF=fl»f»o, bsz, bth) 
IOBUF =(bno, bsz, bth) 
LFBUF-fimo, bsz, bth) 
LPBUF =(bno, bsz, bth) 
NPBUF =(bno, bsz, bth) 


LINE. ID =Hne name 
SMS,ID=VTAMBUF 


PPBUF=ftmo, bsz, bth) 
SFBUF=Arno, bsz, bth) 
SPBUF=frr?o, bsz, bth) 
UEC8UF =(bno, bsz, bth) 
WPBUF=ftmo, bsz, bth) 


*bno= number of buffers 
in a pool 

bsz = size in bytes of 
each buffer 

bth= threshold value for 
a buffer type 


Section 7: BTAM/TCAM/VTAM 7-39 



VTAM Network Operator Commands (cont'd) 

Command Operand Field 


{rl 


NET, 


ACT,ID= < 


[ACT,] ID= 


local SNA major node name 

physical unit name[,u=channel unit addr] 

switched SNA major node name 

application program major node name 

BSC cluster name 

line name [,ANS= |on|off j] 

local 3270 major node name 


ncp name 


[-{ 


U ^device address 
RHAME-remote 370X name 


}] 


port name 
terminal name 


duster name 
line name 

local 3270 major node name 

ncp name 

terminal name 

local SNA major node name 

switched SNA major node name 


, L O G O N ^application program name 
[,LOGMODE=logon mode name] 


ID =group name, LOGON =application program name 


INACT,< 


PATH- i USE,GID=N,ID=switched SNA unit name ) 
NOUSE,PID=N,ID=physical unit name J 


C 1D ^application program major node name 



p BSC duster name ^ 


< 

line name 

local 3270 major node name 
ncp name [,RMPO] 


[IJ ID= - 

port name 
terminal name 

► 


local SNA major node name 
physical unit name [,FINAL] 


V- 

_ switched SNA major node name^ 

> 


INOP.ID=|P hVSiCalU f"" n l e l 

^ line name LEND] I 
ID=line name, ANS= {on|oFf} 
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Section 8: Utilities and Service Aids 


The information in this section is concerned with a variety of utilities 
and service aids used for data-base maintenance and system modifica¬ 
tion. 


Source Publications 

Additional information is in: 

. OS/VS Utilities, GC35-0005 
. OS/VS1 Service Aids, GC28-0665 

• OS/VS1 SYS1.LOGREC Error Recording, GC28-0668 

• OS/VS System Modification Program (SMP), GC28-0673 

For information on Access Method Services, a group of VSAM utilities, 
see OS/VS1 Access Method Services, GC26-3840. 

For information on Mass Storage System service aids, see OS/VS Mass 
Storage System (MSS) Services for Space Management, GC35-0012. 

For information on Analysis Program- 1 (AP-l), see OS/VS and 
DOS/VS Analysis Program-1 (AP-l) User’s Guide, GC26-3855. 
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Utility Programs - listed by class 


SYSTEM 

Utility Programs 

DATA SET 

Utility Programs 

INDEPENDENT 

Utility Programs 

IEHATLAS 

IEBCOMPR 

IBCDASDI 

IEHDASDR 

IEBCOPY 

IBCDMPRS 

IEHINITT 

IEBDG 

ICAPRTBL 

IEHIOSUP 

IEBEDIT 


IEHLIST 

IEBGENER 


IEHMOVE 

IEBISAM 


IEHPROGM 

IEBPTPCH 


IFHSTATR 

IEBTCRIN 

IEBUPDTE 



The utilities section is arranged in alphabetical order for easy reference. 


The control statement for the utility programs have the following standard format: 

}~ label | operation [ operanJ~] 

The label symbolically identifies the control statement. When included, a label must 
begin in the first position of the statement and must be followed by one or more blanks. 
It can contain from one to eight alphameric characters, the first of which must be 
alphabetic. 

The operation identifies the type of control statement. It must be preceded and followed 
by one or more blanks. 

The operand is made up of one or more keyword parameters separated by commas. The 
operand field must be preceded and followed by one or more blanks. Commas, paren¬ 
theses, and blanks can be used only as delimiting characters. 

A definition of operands table is located at the back of this section. It should be used, 
when needed, as a recall mechanism; it is not intended for use as tutorial information. 

If you require additional information, refer to the source publication listed for this 
section. 
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Guide to Utility Program Functions 


__ 1 

Utility Program 

Add 

a password 

IEHPROGM 

Analyze 

tracks on direct access 

IEHATLAS, IEHDASDR, 
IBCDASDI 

Assign alternate 
tracks 

to a direct access volume 

IEHATLAS, IEHDASDR, 
IBCDASDI 

Build 

a generation index 

IEHPROGM 

a generation 

IEHPROGM 

an index 

IEHPROGM 

Catalog 

a data set 

IEHPROGM 

a generation data set 

IEHPROGM 

Change 

data set organization 

IEBUPDTE 

logical record length 

IEBGENER 

volume serial number of direct access 
volume 

IEHDASDR 

Compare 

a partitioned data set 

IEBCOMPR 

sequential data sets 

IEBCOMPR 

Compress-in- 
place 

a partitioned data set 

IEBCOPY 

Connect 

volumes 

IEHPROGM 

Construct 

records from MTST and MTDI input 

IEBTCRIN 

Convert to 
partitioned 

a sequential data set created as a result 
of an unload 

IEBCOPY 

sequential data sets 

IEBUPDTE, IEBGENER 

Convert to 
sequential 

a partitioned data set 

IEBUPDTE, IEBCOPY 

an indexed-sequential data set 

IEBISAM, IEBDG 

Copy 

a catalog 

IEHMOVE 

a direct access volume 

IEHDASDR, IBCDMPRS, 
IEHMOVE 

a partitioned data set 

IEBCOPY, IEHMOVE 

a volume of data sets 

IEHMOVE 

an indexed-sequential data set 

IEBISAM 

cataloged data sets 

IEHMOVE 

dumped data from tape to direct access 

IEHDASDR, IBCDMPRS 

job steps 

iebedit 

members 

IEBGENER, IEBUPDTE, 
IEBDG 

selected members 

IEBCOPY, IEHMOVE 

sequential data sets 

IEBGENER, IEHMOVE, 
IEBUPDTE 

to tape 

IBCDMPRS 

Create 

a library of partitioned members 

IEBUPDTE 

a member 

IEBDG 

a sequential output data set 

IEBDG 

an index 

IEHPROGM 

an output job stream 

IEBEDIT 

Delete 

a password 

IEHPROGM 

an index structure 

IEHPROGM 

records in a partitioned data set 

IEBUPDTE 

Dump 

a direct access volume 

IEHDASDR, IBCDMPRS 

Edit 

MTDI input 

IEBTCRIN 

Edit and convert 
to partitioned 

a sequential data set 

IEBGENER, IEBUPDTE 

Edit and copy 

a job stream 

IEBEDIT 

a sequential data set 

IEBGENER, IEBUPDTE 

Edit and list 

error statistics by volume (ESV) records 

IFHSTATR 

Edit and print 

a sequential data set 

IEBPTPCH 

Edit and punch 

a sequential data set 

IEBPTPCH 

Enter 

a procedure into a procedure library 

IEBUPDTE 

Exc 1 ude 

a partitioned data set member from a copy 
operation 

IEBCOPY, IEHMOVE 

Expand 

a partitioned data set 

IEBCOPY 

a sequential data set 

IEBGENER 

Generate 

test data 

IEBDG 

Get alternate 
tracks 

on a direct access volume 

IEHDASDR, IBCDASDI, 
IEHATLAS 
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Guide to Utility Program Functions (cont'd) 


| Task 

Utility Program 

Include 

changes to members or sequential data sets 

IEBUPDTE 

Initialize 

a direct access volume 

IEHDASDR, IBCDASDI 

Insert records 

into a partitioned data set 

IEBUPDTE 

Label 

magnetic tape volumes 

IEHINITT 

List 

a password entry 

IEHPROGM 

a volume table of contents 

1 EH LI ST 

contents of direct access volume on system 
output device 

IEHDASDR 

number of unused directory blocks and 
tracks 

IEBCOPY 

partitioned directories 

IEHLIST 

the contents of the catalog (SYSCTLG 
data set) 

1 EH LI ST 

Load 

a previously unloaded partitioned data set 

IEBCOPY 

an indexed sequential data set 

IEBISAM 

an unloaded data set 

IEHMOVE 

UCS and FCB buffers of a 3211 or 3203-4 

ICAPRTBL 

Merge 

partitioned data sets 

IEHMOVE, IEBCOPY 

Modify 

a partitioned or sequential data set 

IEBUPDTE 

Move 

a catalog 

IEHMOVE 

a volume of data sets 

IEHMOVE 

cataloged data sets 

IEHMOVE 

partitioned data sets 

IEHMOVE 

sequential data sets 

IEHMOVE 

Number records 

in a new member 

IEBUPDTE 

in a partitioned data set 

IEBUPDTE 

Password protect 

add a password 

IEHPROGM 

delete a password 

IEHPROGM 

list passwords 

IEHPROGM 

replace a password 

IEHPROGM 

Print 

a sequential data set 

IEBGENER, IEBUPDTE, 
IEBPTPCH 

partitioned data sets 

IEBPTPCH 

selected records 

IEBPTPCH 

Punch 

a partitioned data set member 

IEBPTPCH 

a sequential data set 

IEBPTPCH 

selected records 

IEBPTPCH 

Read 

Tape Cartridge Reader input 

IEBTCRIN 

Reblock 

a paritioned data set 

IEBCOPY 

a sequential data set 

IEBGENER, IEBUPDTE 

Recover 

data from defective tracks on direct access 
volumes 

1 EH ATLAS 

Release 

a connected volume 

IEHPROGM 

Rename 

a partitioned data set member 

IEBCOPY, IEHPROGM 

a sequential or partitioned data set 

IEHPROGM 

moved or copied members 

IEHMOVE 

Renumber 

logical records 

IEBUPDTE 

Replace 

a password 

IEHPROGM 

data on an alternate track 

1 EH ATLAS 

identically named members 

IEBCOPY 

logical records 

f IEBUPDTE 

members 

IEBUPDTE 

records in a member 

IEBUPDTE 

records in a partitioned data set 

IEBUPDTE, IEBCOPY 

selected members 

IEBCOPY 

selected members in a move or copy 
operation 

IEHMOVE, IEBCOPY 

Restore 

a dumped direct access volume from tape 

IBCDMPRS, IEHDASDR 

Scratch 

a volume table of contents 

IEHPROGM 

data sets 

IEHPROGM 

Uncatalog 

data sets 

IEHPROGM 

Unload 

a partitioned data set 

IEHMOVE, IEBCOPY 

a sequential data set 

IEHMOVE 

an indexed sequential data set 

IEBISAM 

Update 

in place a partitioned data set 

IEBUPDTE 

TTR Entries in the supervisor call library 

IEHIOSUP 

Write 

IPL records and a program on a direct access 
volume 

IEHDASDR 
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IBCDASDI 

IBCDASDI, an independent utility: 

• Assigns alternate tracks to a direct access volume. 

• Initializes a direct access volume. 

Job Control Statements 

Because IBCDASDI is an independent utility, operating-system job control 
statements are not used. 

Control Statements 


JOB 

indicates the beginning of an IBCDASDI job. 

MSG 

defines an output device for operator messages. 

DADEF 

defines the volume to be initialized. 

VLD 

contains information for constructing an initial volume 
label and for allocating space for additional labels. 

VTOCD 

contains information for controlling the location of the 
volume table of contents. 

IPLTEXT 

(optional) 

separates utility control statements from any IPL program 
text statements. 

GETALT 

assigns an alternate track on a volume. 

END 

indicates the end of an IBCDASDI job. 

LASTCARD 

(optional) 

used to end a series of stacked IBCDASDI jobs. 


VTOC Entries per Track 


Device 

VTOC Entries per Track 

2313 

25 

2319 

25 

2305-1 

18 

2305-2 

34 

3330 

39 

3340 

24 

3350 

47 
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IBCDASDI (cont'd) 


Format 

Name Operation Operands 

[label] JOB [user-information] 

[label] MSG TODEV=xxxx 

/ TOADDR=cuu 

[label] DADEF TODEV=xxxx 

, TOADDR=cuu 
[, IPL=YES] 

,VOLID=fserial i 
(SCRATCH / 
[,FLAGTEST=NO] 

[,PASSES=n] 

[,BYPASS=YES] 

[,MODEL=n] 

[label] VLD NEWVOLID=serial 

,VOLPASS=|0| 

[, OWNERID=xxxxxxxxxx] 

[, ADD LABE L=n] 

[label] VTOCD STRTADR=nnnnn 

,EXTENT=nnnn 

IPLTXT 

[label] GETALT TODEV=xxxx 

,TOADDR=cuu 
, TRACK=cccchhhh 
, VOLID=serial 
[,FLAGTEST=NO] 

[,PASSES=n] 

[,BYPASS=YES] 

[,MODEL=n] 

[label] END [user-information] 

LASTCARD 
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IBCDMPRS 


IBCDMPRS, an independent utility: 

• Copies a direct access volume. 

• Copies dumped data from tape to a direct access volume. 

• Copies to tape. 

• Dumps a direct access volume. 

• Restores a dumped direct access volume from tape. 


Job Control Statements 

Because IBCDMPRS is an independent utility, operating-system job control 
statements are not used. 


Control Statements 


JOB 

begins an IBCDMPRS job. 

MSG 

defines an output device for operator messages. 

DUMP 

identifies the volume to be dumped and the receiving volume. 

VDRL 

specifies the upper and lower track limits of a partial dump. 

RESTORE 

identifies the source volume whose data is to be restored and the 
receiving volume. 

END 

indicates the end of an IBCDMPRS job. 


Format 


Name 

Operation 

Operands 

[label] 

JOB 

[user- i n format i on ] 

[label] 

MSG 

TODEV=xxxx 
, TOADDR=cuu 

[label] 

DUMP 

FROMDEV=xxxx 

,FROMADDR=cuu 

,TODEV=xxxx 

, TOADDR=cuu 

[, VO LID=serial[ / serial]] 

[,MODE=mm] 

[,MODEL=n] 

[label] 

VDRL 

BEGIN=nnnnn 

[,END=nnnnn] 

[label] 

RESTORE 

FROMDEV=xxxx 
,FROMADDR=cuu 
, TODEV=xxxx 
, TOADDR=cuu 
, VOLID=serial 
[,MODE=mm] 

[,MODEL=n] 

[label] 

END 

[user-information] 
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ICAPRTBL 

ICAPRTBL, an independent utility: 

| • Loads UCS and FCB buffers of a 3211 or 3203-4. 

Job Control Statements 

Because ICAPRTBL is an independent utility, operating-system job control state¬ 
ments are not used. 

Control Statements 


JOB 

indicates the beginning of an ICAPRTBL job. 

DFN 

defines the address of the 3211 or 3203-4. 

-UCS 




FCB 

defines the image to be loaded into the FCB. 


indicates the end of an ICAPRTBL job. 


Format 


Name 

Operation 

Operands 

[label]] 

JOB 

[ user-information] 


DFN 

ADDRCuu [,FOLD={n}] 

T 13203-4)1 

[,DEVT= 13211 JJ 

r iri' 

[.'* S] 

[ucsname] 

UCS 

ucs-image 

[fcbname] 

FCB 

LPI =® 

, LNCH=((l,c)[, (l,c)...]) 

,FORMEND=x 

[label] 

END 

[user- i nformat ion] 


| *AN is the default for a 3203-4, ALL is the default for a 3211. 
ICAPRTBL Wait-State Codes 


Code 

Meaning 

Code 

Meaning 

B01 

Visually check the train image 

B12 

Reader not ready. 


printed on the 3211. 

B13 

Reader unit check (display low main 

B02 

Missing control card or control 


storage location 2 through 7 for sense 


card out of order. 


information). 

B03 

Incorrect JOB statement. 

B14 

Reader channel error. 

B04 

Incorrect DFN statement. 

B15 

No device end on reader. 

B05 

Incorrect UCS statement. 

B19 

Printer not online. 

B06 

Incorrect FCB statement. 

BIB 

Printer unit check (display low main 

B07 

Incorrect END statement. 


storage location 2 through 7 for sense 

BOA 

External interrupt. 


information). 

BOB 

Program check interrupt. 

B1C 

Printer channel error. 

BOC 

Machine check interrupt. 

BID 

No device end on printer. 

Bll 

Reader not online. 
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IEBCOMPR 


IEBCOMPR, a data set utility: 

• Compares partitioned data sets. 

• Compares sequential data sets. 


Return Codes 

00 - successful completion. 

08 - unequal comparison - processing continues. 

12 - unrecoverable error - job step terminated. 

16 - a user routine passed a return code of 16 to IEBCOMPR - job 
step is terminated. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=I EBCOMPR 

//SYSPRINT 

DD 

data set definition (output messages) 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DD 

data set definition (input data set) 

//SYSIN 

DD 



DUMMY I 


"IEBCOMPR control statements" 

/* 


Note - If the input is sequential and no user exits are provided, the DUMMY 
parameter for the SYSIN DD statement is used. In this case, no utility 
control statements are required. 


Control Statements 


COMPARE 

indicates the organization of a data set. 

EXITS 

identifies the user exit routines to be used. 

LABELS 

indicates whether user labels are to be treated as data. 


Format 


Name 

Operation 

Operands j 

[label] 

COMPARE 

TYPORG= 

PS 

PO 


[label] 

EXITS 1 

[INHDR=routinename] 

[1 NTLI^routinename] 

[ERROR=routinename] 

[PRECOMP=routinename] 

[label] 

LABELS 

DATA=| 

YES 

NO 

ALL 

ONLY 



^ If you code more than one operand, separate them with commas. 
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IEBCOPY 


IEBCOPY, a data set utility: 

• Compress-in-place, a partitioned data set. 

• Converts to partitioned, a sequential data set. 

• Converts to sequential, a partitioned data set. 

• Copies a partitioned data set. 

• Copies selected members. 

• Excludes a partitioned data set member from a copy operation. 

• Expands a partitioned data set. 

• Lists the number of unused directory blocks or tracks. 

• Loads a previously unloaded partitioned data set. 

• Merges partitioned data sets. 

• Reblocks a partitioned data set. 

• Renames a partitioned data set member. 

• Replaces records of selected members in a partitioned data set. 

• Unloads a partitioned data set. 

Return Codes 

00 - indicates successful completion. 

04 - indicates a condition from which recovery may be possible. 

OS - indicates an unrecoverable error. The job step is terminated. 


Job Control Statements 


//name 

JOB 


//name 

EXEC 

PGM-IEBCOPY|, PARM“‘SIZE=nnnnnnnn [K ]' ] 

//SYS PRINT 

DD 

data set definition (output message) 

//INPUT 

DD 

data set definition (input data set) 

//OUTPUT 

DD 

data set definition (output data set) 

//SYSUT3 

DD 

data set definition (spill data set - optional) 

//SYSUT4 

DD 

data set definition (spill data set - optional) 

//SYS IN 

DD 

* 


IEBCOPY control statements" 

/* 



The optional PARM information in the EXEC statement is used to define the number 1 

of bytes used 

as a buffer. The nnnnnnnn can be replaced by one to eight digits. 

The K causes 

the nnnnnnnn to be multiplied by 1024. 


Control Statements 


COPY 

indicates the beginning of a Copy operation. 

SELECT 

specifies which members in the input data set are tb be copied. 

EXCLUDE 

specifies members in the input data set to be excluded from the 
copy step. 
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IEBCOPY (cont'd) 


Format 


Name 

Operation 

Operands 

[label] 

COPY 

i 

OUTDD : -ddname 

[, INDD= fddnamel [,ddname2]<.. ) 

<(ddnamel [,ddname2] [, (ddname2,R)]... > * 
(((ddnamel, R)[,ddname2]...) ) 

[,LIS T=NO] 

*The INDD parameter may appear on a separate card; 
if this option is selected, the INDD parameter is not 
preceded by a comma (,). 

[label] 

SELECT 

/name... \ 

MEMBER=h(] (name,, R)...[)] U,...] 

*[(] name,newname[,R]...[)] ) 

[label] 

EXCLUDE 

MEMBER=[(]membernamel [,membername2]... [)] 
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IEBDG 


IEBDG, a data set utility: 

• Converts to sequential, an indexed sequential data set. 

• Copies or creates members. 

• Creates a sequential output data set. 

• Generates test data. 


Return Codes 

00 - successful completion. 

04 - a user routine returned a code of 16 to the IEBDG program. The job 
step is terminated at the user's request. 

08 - an error occurred while processing a set of utility control statements. No data is 
generated following the error. Processing continues normally with the next set of 
utility control statements, if any. 

12 - indicates that an error occurred while processing an input or output data set. The 
job step is terminated. 

16 - an error occurred from which recovery is not possible. The job step is terminated. 


Job Control Statements 

//name 

JOB 

parameters 

// 

EXEC 

PGM=IEBDG[, PARM=LINECNT=nnnn] 

//SYSPRINT 

DD 

data set definition (output message) 

//SEQIN 

DD 

data set definition (sequential input - optional) 

//PARIN 

DD 

data set definition (partitioned input - optional) 

//SEQOUT 

DD 

data set definition (sequential output - optional) 

//PAROUT 

DD 

data set definition (partitioned output - optional) 

//SYSIN 

DD 

f 1 



(DATA) 


"IEBDG control statements" 


/* 


The optional PARM information in the EXEC statement is used to specify the 
number of lines to be printed between headings in the message data set. The 
nnnn is a four-digit decimal number that specifies the number of lines (0000 to 
9999) to be printed per page of output listing. 

The DSNAME parameter for the PARIN and PAROUT DD statements can be 
coded as DSNAME=setname (membername). 


Control Statements 


DSD 

specifies the ddnames of input and output data sets. 

FD 

defines the contents and lengths of fields to be used in creating 
output records. 

CREATE 

defines the contents of output records. 

REPEAT 

specifies the number of times a CREATE statement or group of 

CREATE statements are to be used in generating output records. 

END 

marks the end of a set of IEBDG utility control statements. 
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IEBDG (cont'd) 


IBM Supplied Patterns 


Type 

Expressed in 
Hexadecimal 

Expressed in 

Printable Characters 

Alphameric 

Cl C2...E9 F0...F9 

ABC...Z 0...9 

Alphabetic 

Cl C2...E9 

ABC...Z 

Zoned Decimal 

FOFO...FOF1 

00...01 

Packed Decimal 

0000...001C 
(Positive pattern) 
0000...001D 

(Negative pattern) 

Not applicable 

Binary Number 

00... 01 

(Positive pattern) 
FF...FF 

(Negative pattern) 

Not applicable 

Collating Sequence 

40...F9 

b^.<(+l&!$*);1-/,% >?: , @’=" 

A...Z 0...9 

Randon Number 

Random hexadecimal 
digits 

Not applicable 

Note: A packed-decimal or binary number is right-aligned in the defined field. 




Name 

Operation 

Operands 

[label] 

DSD 

OUT PUT=(ddname) 

[, 1 NPUT=(ddname,...)] 

[label] 

FD 

NAME=name 

, LENGTHS ength-in-bytes 
[,STARTLOC=starting-byte-location] 

( 1 character' j 

[/ F| LL=< }] 

( X'2-hexadecimal-digits 1 ' 

[, FORMAT=pattern* [, CHARACTER=character]] 
('character-string 1 ) 

[,PICTURE=length,< P'decimal-number' ( ] 

'.B'decimal-number* ’ 

[,SIGN=sign] ] 

[,ACTION=actioii]** 

[, 1 NDEX=number(, CYCLE=number] [, RANGE=number]] 

[, INPUT=ddname] 

[,FROMLOC=number] 

* specifies IBM supplied patterns - see table below. 

**specifies how the contents of a defined field are to be altered - see table below. 

[label] 

CREATE 1 


[QUANTITY=number] 

('character' ) 

[FILL=< >] 

( X'2-hexadecimal-digits') 

(ddname ) 

[INPUT= < >] 

(SYSIN[(cccc)]) 

('character-string' j 

[PICTURE=length,startloc,< P'decimal-number' (] 

( B'decimal-number' ) 

> 




(name ) 

[NAME= < (namel ,riame2...) >] 

((name, (COPY=namel ,name2 ...)...) ) 

[EXIT=routinename] 



1 Use at least one of the optional parameters. If you code more than 
one operand, separate them with commas. 
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IEBDG (cont'd) 


Format (cont'd) 


[label] 

REPEAT 

QUANTITY=number[, CREATE=number] 

[label] 

END 



Format = 

Action = 

FORMAT=AN — alphameric. 

ACTION=SL -- shift left. 

FORMAT=ZD— zoned decimal. 

ACTION=SR — shift riaht. 

FORMAT=PD — packed decimal. 

ACTION=TL — truncate left. 

FORMAT^CO — collating sequence. 

ACTION=TR — truncate right. 

FORMAT=BI — binary. 

ACTION=RO — roll. 

FORMAT-AL — alphabetic. 

ACTION-WV —wave. 

FORMAT=RA — random binary number. 

ACTION-FX — fixed. 


ACTION=RP — ripple. 
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IEBEDIT 

IEBEDIT, a data set utility: 

• Copies job steps. 

• Creates an output job stream. 

• Edits and copies a job stream. 


Return Codes 

00 - successful completion. 

04 - indicates that an error occurred. The output data set may not be usable 
as a job stream. Processing continues. 

08 - indicates that an unrecoverable error occurred while attempting to process 
the input, output, or control data set. The job step is terminated. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=IEBEDIT 

//SY SPRINT 

DD 

data set definition (output message) 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DD 

data set definition (output data set) 

//SYS IN 

DD 

* 

"IEBEDIT control statements" 

/* 




Control Statements 


EDIT 


indicates which step or steps of a specified job in the input 
data set are to be included in the output data set. Any number 
of EDIT statements can be included in an operation, thus including 
selected jobs in the output data set. 


Format 


Name 

Operation 

Operands 

[label] 

EDIT 1 

[START=jobname] 

f (POSITION)! 

TYPE=< INCLUDE > 

L (exclude )j 

fsTEPNAME= (| name }[ { nQme )] 

\ \(.name-name) L , I. name-nameJJ ,...7J 

[NOPRINT] 


^ If you code more than one operand, separate them with commas. 
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IEBGENER 


IEBGENER, a data set utility: 

• Changes logical record length. 

• Converts to partitioned, sequential data sets. 

• Copies members. 

• Copies sequential data sets. 

• Edits and converts to partitioned, a sequential data set. 

• Edits and copies a sequential data set. 

• Expands a sequential data set. 

• Prints a sequential data set. 

• Reblocks a sequential data set. 


Return Codes 

00 - successful completion. 

04 - probable successful completion. A warning to the user is written. 
08 - processing was terminated after the user requested processing of 
user header labels only. 

12 - an unrecoverable error has occurred. The job step is terminated. 
16 - a user routine has passed a return code of 16 to the IEBGENER 
program. The job step is terminated. 


Job Control Statements 


//name 

JOB 

parameters 

// 

EXEC 

PGM= IEBGENER 

//SYSPRINT 

DD 

data set definition (output message) 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DO 

data set definition (output data set) 

//SYSIN 

DD 

parameters 


"IEBGENER control statements (when required)" j 

/* 




Control Statements 


GENERATE 

used to indicate the number of member names and alias 
names, record identifiers, literals, and editing information 
contained in the control data set. 

EXITS 

used to indicate that user routines are provided. 

LABELS 

used to specify user- label processing. 

MEMBER 

used to specify the member name and alias pf member of a 
partitioned data set to be created . 

RECORD 

used to define a record group to be processed and to 
supply editing information. 
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IEBGENER (cont'd) 


Conversion Table 


Code 

Conversion 

Output length 
(input length = L) 

PZ 

Packed to unpacked decimal mode 

2L-1 

ZP 

Unpacked to packed decimal mode 

(L/2) + C* 

HE 

H-set BCD to EBCDIC mode 

L 

* If L is odd, C is 1/2; if L is even, C is 1. j 


Note: PZ type (packed to unpacked) conversion is impossible for packed 
decimal records longer than 16K bytes. For ZP type (unpacked to packed 
conversion, the normal 32K byte maximum applies. 


If no conversion is specified, the field is moved to the output area without 
change. 

When the ZP parameter is specified, the conversion is performed in place. 
The original unpacked field is replaced by the new packed field. Therefore, 
the ZP parameter must be omitted from subsequent references to that field. 

If the field is needed in its original unpacked form, it must be referenced 
prior to the use of the ZP parameter. 


Format 


Name 

Operation 

Operands 

[label] 

GENERATE 1 

[MAXNAME = n[ 

[MAXFLDS = n] 

[MAXGPS = n| 

|MAXLITS = n] 

[labell 

EXITS 1 

[ 1N H DR = rout i nename] 

[OUTHDR = routinename] 

[INTLR = routinename] 

| OUTTLR = routi nename] 

[KEY = routinename] 

[DATA = routinename] 

[ IOERROR = routinename] 

[TOTAL = (routinename,size)] 

[label 1 

LABELS 

DATA= 1 YES 1 

\no / 

{all > 
ionlyI 
(input* 

[label] 

MEMBER 

NAME = (name[,alias]...) 

[label] 

RECORD 


IDENT = (length, 'name 1 ,input- location) 

FIELD = ([length],[input - location - or- 'literal'], [conversion], 
[output - location])... 

. LABELS = n 



1 If you code more than one operand, separate them with commas. 
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IEBIMAGE 


IEBIMAGE 

IEBIMAGE, a data set utility, processes 3800 Printer control modules 

• Creates and prints a forms control buffer module. 

• Creates and prints a character arrangement table module. 

• Creates and prints a graphic character modification module. 

• Creates and prints a copy modification module. 

• Modifies and prints a character arrangement table module. 

• Modifies and prints a graphic character modification module. 

• Modifies and prints a copy modification module. 

• Prints a forms control buffer module. 

• Prints a character arrangement table module. 

• Prints a graphic character modification module. 

• Prints a copy modification module. 

Return Codes 

00 - successful completion. 

04 - unusual exception found; processing continues. 

08 - control statement error found; processing continues. 

12 - I/O error occurred. Processing continues with no further 
updates to output library, or job step terminates. 

16 - input data set can't be opened; job step terminates. 

20 - output data set can't be opened; job step terminates. 

24 - invalid parameters passed; processing terminates. 


Job Control Statements 


//name 

JOB 

// 

EXEC PGM=IEBIMAGE 

//SYSPRINT 

DD dataset definition (output listing) 

//SYS IN 

DD dataset definition (Library I/O) 

//SYS IN 

DD * 


IEBIMAGE control statements 

/* 



Control Statements 


INCLUDE 

specifies a module that is to be modified. 

FCB 

specifies that a forms control buffer module is 
to be created, printed. 

TABLE 

specifies that a character arrangement table 
module is to be created, modified, printed. 

GRAPHIC 

specifies that a graphic character modification 
module is to be created, modified, printed. 

COPYMOD 

specifies that a copy modification module is 
to be created, modified, printed. 

NAME 

specifies the end of an operation. 
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IEBIMAGE (cont'd) 


Name 

Operation 

Operands 

[label] 

FCB 

(Notes 

1,2) 

T SIZE=110 1 

|_SIZE= length in tenthsj 

r lpi=6 

[_LPI= ( (N,m),... (N p,n 1)) 

^ remaining lines J 

[CHx = (line-number, . . .) ] 

[label] 

TABLE 

(Notes 

1,2) 

1 LGC= ((table-location[,WCGM location 1 

I !",WCGM reference ! 1),...) J 

[m J 

[CGMID=(CGM identification, . . .)) 

[GCMLIST= (name, . . .)] 

[label] 

GRAPHIC 

(Notes 

1,2,3) 


REF= ((segment-number["current assignment !),...) 

1 ,new assignment val | 

f IBM-supplied GCM! 

1 , GCM=name I 

[ASSIGN=(assignment val T,10 ! )] 

L^chj 


[label] 

COPYMOO 

(Notes 

1,2) 

COPIES=(initial copy number T,number of copies "1 ) 

L'l. J 

LINES=(in:tial line number T,number of lines!) 

L ■- J 

POS=print position 

TEXT= ((fdup factor! ) C/character data' 1 ), .. .) 

1 J lX, 'hexadecimal data'/ 

[label] 

INCLUDE 
(Note 1) 

name 

l, DELSEG~ (segment number, ...)] 

[label] 

NAME 

name 


Notes: 

1 . If more than one operand is used, they must be separated by commas. 

2. For print-only option, there must be no operands and no comments. 

3. Graphic data statements must follow a statement with the ASSIGN keyword. 


Graphic 

Data Statement 





10 Pitch 






j 1-18 

Each nonblank = one bit 

25-29 

SEQ= 

30,31 

number 

12 Pitch 

1 - 15 

Each nonblank = one bit 

16-18 

blank 


25-29 

SEQ= 

30,31 

number 

15 Pitch 

1 - 3 

blank 

4-15 

Each nonblank = one bit 

16-18 

blank 


25-29 

SEQ= 

30,31 

number 
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IEBISAM 

IEBISAM, a data set utility: 

• Converts to sequential, a partitioned data set. 

• Copies an indexed sequential data set. 

• Loads an indexed sequential data set. 

• Unloads an indexed sequential data set. 


Return Codes 

00 - successful completion. 

04 - a return code of 04 or 12 was passed to the IEBISAM program by a user routine. 

08 - the program terminated operation because an error condition was encountered 
during processing. 

12 - a return code other than 00, 04, 08, or 12 was passed from a user routine to 
the IEBISAM program. The job step is terminated. 

16 - the program terminated operation because an error condition was encountered 
during processing. 


Job Control Statements 


//name 

JOB 




// 

EXEC 

PGM=I EBISAM, PARM= 1 

COPY 

UNLOAD 

LOAD 

PRINTL 

'PRINTLj, N] [, EXIT=routinenameJ' 


//SYS PRINT 

DD 

data set definition (output messages) 


//SYSUT1 

DD 

data set definition (input data set) 


//SYSUT2 

/* 

DD 

data set definition (output data set) 


The PARM parameter on 
IEBISAM. 

the EXEC statement is used to control the execution of 



Control Statements 


The IEBISAM program is controlled by job control statements. 
No utility control statements are required. 
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IEBPTPCH 


IEBPTPCH, a data set utility: 

• Edits and prints a sequential data set. 

• Edits and punches a sequential data set. 

• Prints a sequential data set. 

• Prints partitioned data sets. 

• Prints selected records. 

• Punches a partitioned data set member. 

• Punches a sequential data set. 

• Punches selected records. 


Return Codes 

00 - indicates successful completion. 

04 - indicates that either a physical sequential data set is empty or a 
partitioned data set has no members. 

08 - indicates that a member specified for printing does not exist in the 
input data set. Processing continues with the next member. 

12 - indicates that an unrecoverable error occurred or that a user routine 
passed a return code of 12 to IEBPTPCH. The job step is terminated. 

16 - indicates that a user routine passed a return code of 16 to IEBPTPCH. 
The job step is terminated. 

Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=IEBPTPCH 

//SYSPRINT DD 

data set definition (output message) 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DD 

data set definition (output data set) 

//SYS IN 

DD 

* 


'IEBPTPCH control statements" 

/* 




Control Statements 


PRINT 

specifies that the data is to be either printed or punched. 

PUNCH 


TITLE 

specifies that a title is to precede the printed or punched data. 

EXITS 

specifies that user routines are provided. 

MEMBER 

specifies that the input is a partitioned data set and that a 
selected member is to be printed or punched. 

RECORD 

specifies whether editing is to be performed, that is, records 
are to be printed or punched to non-standard specifications. 

LABELS 

specifies whether user labels are to be treated as data. 
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SEBPTPCH (cont'd) 

Format 


Name 

Operation 

Operands 

[label] 

PRINT 1 
PUNCH 

[ PREFORM=A ] 
l PREFORM=M J 
[TYPORG=PS ] 
lTYPORG=POj 

[TOTCONV=XEl Applicable to a PRINT or 

LTOTCONV=PZJ PUNCH operation. 

[CNTRL=n] 

[STRTAFT=nj 
[S rOPAFT=n] 

[SKIP=n] 

[MAXNAME=n] 

[MAXFLDS=n] 

[MAXGPS=n] 

[MAXUTS=n] 

[INITPG-n] Applicable only to a PRINT 

[MAXLlNE=n] operation. 

[CDSEQ=n] Applicable only to a PUNCH 

[CDINCR=n] operation. 

[label] 

TITLE 

lTEM=(‘title* [,output-location]) [,!TEM...] 

[label] 

EXITS 1 

[1 NHDR=routinenarne] 

[1 NTLR=routinename] 

[1 NREC-routinename] 

[OUTREC=routinename] 

[label] 

MEMBER 

( NAME=membername) 
t NAME=al iasname J 

[iabel] 

RECORD 1 

[IDENT=(length, ‘name 1 , input-location)] 

1"FIELD=(length, [input-location ], [conversion]^ 
|_[output-location]) [,FIELDs. ..] j 

[label] 

LABELS 

DATA= ( YES j 
) NO ( 

) ALL ( 

(only’ 


Conversion Table 


Code 

Conversion 

Output Length 

(Where L is the Input Length) 

PZ 

Packed to unpacked decimal 
mode 

2L-1 

XE 

Alphameric to hexadecimal 
representation 

2L 


^ If you code more than one operand, separate them with commas. 
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IEBTCRIN 


IEBTCRIN, a data set utility: 

• Constructs records from MTST and MTDi input. 

• Edits MTDI input. 

• Reads Tape Cartridge Reader input. 


Return Codes 

00 - normal termination. 

04 - warning message issued; execution permitted. Conditions leading to issuance 
of this code are: (1) SYSPRINT, SYSIN, SYSUT2, or SYSUT3 DD statements 
missing and (2) DCB parameters missing in SYSUT2 or SYSUT3 DD statements. 

12 - Diagnostic error message issued; execution terminated. Conditions leading to 
issuance of this code are: (1) SYSUT1 DD statement missing, (2) conflicting 
DCB parameters in DD statements, and (3) invalid or conflicting utility control 
statements. 

16 - Terminal error message issued; execution terminated. Conditions leading to 
issuance of this code are: (1) permanent input/output errors (not including 
data checks on the TCR), (2) unsuccessful opening of data sets, (3) requests 
for termination by user exit routine, (4) insufficient storage available for 
execution, and (5) user exit routine not found. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=IEBTCRIN 

//SYSPRINT 

DD 

data set reference (output messages) 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DD 

data set definition (output data set-valid records) 

//SYSUT3 

DD 

data set definition (output data set-error records) 

//SYSIN 

DD 

* 


IEBTCRIN control statements" 

/* 




Special Purpose Codes 


MTDI Codes 





X'00' 

02) 

XUE 1 

(VOK) 

X'74 1 

(P4) 

X'lT 

(DUP) 

X‘3C 

(RM) 

X'75' 

(P5) 

X* 12' 

(LZS) 

X'7T 

(PI) 

X'76‘ 

(P6) 

X* 18* 

(CAN) 

X'72 1 

(P2) 

X'77' 

(P7) 

X'l D' 

(GS) 

X'73' 

(P3) 

X'78' 

(P8) 

MTST Codes 





X'l O' 

(cr) 

X'14‘ 

(CR) 

X'51 1 

(as) 

X'll' 

(sw) 

X‘15' 

(SW) 

X'55' 

(AS) 

X'l 3' 

(fd) 

X’ 17* 

(FD) 

X'80‘ 

(src) 


X'8Vthrough X’FF' 


The special purpose codes listed are used by IEBTCRIN when constructing 
records. Use of these codes causes a message to be issued and the utility to 
be terminated. 
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Bit Positions 0,1 
Bit Positions 2,3 
First Hexadecimal Dii 





















IEBTCRIN (cont't) 


rv 5 

•o "a MTST Codes after Translation by IEBTCRIN 

•§ with TRANS = STDCL 


8 v 

*z X 

11 

00 

01 

10 


00 

01 

10 

11 

00 

01 

10 

11 

00 

01 

10 

ii 

00 

01 

10 

11 

0 

1 

2 

3 

4 

5 

6 

7 

71 

9 

A 

B 

c 

D 

E 

F 

0000 

0 





SP 

& 

- 









0 

0001 

1 







/ 


a 

i 

• 


A 

J 


1 

0010 

2 



STX 






b 

k 

71 


B 

71 

7 

2 

0011 

3 









c 

1 

■ 


c 

L 

T 

3 

0100 

4 









d 

m 

0 


D 

M 

U 

4 

0101 

5 

TAB 








e 

n 

71 


E 

N 

V 

5 

0110 

6 


BSP 







f 

o 

w 


F 

0 

w 

6 

0111 

7 









9 

P 

'x 


G 

P 

X 

7 

1000 

8 









h 

q 

y 


H 

Q 

Y 

8 

1001 

9 









i 


T" 


T” 

R 

z 

9 

1010 

A 





9 

T 











1011 

B 






$ 


# 









1100 

c 






V 

T 

@ 









1101 

D 

CR 




( 

) 











1110 

UL 


SRC 



T 



= 


± 







mi 

a 







? 







! _ 




Bit Positions 0,1 
Bit Positions 2,3 
First Hexadecimal Digit 


TAB = Tab code 
CR = Carrier return 
BSP = Backspace 
SRC = Search 
STX = Stop transfer 
SP = Space 


Note: The STDUC option permits translating 

both lowercase and uppercase alphabetic 
characters to uppercase. 
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IEBTCRIN (cont'd) 


Control Statements 


TCRGEN 

specifies whether MTDI or MTST input is to be processed and the 
type of processing to be performed. 

EXITS 

specifies any exit routines provided by the user. 


Operation 


Operands 


[label] 


TCRGEN 


/'STDUC n 
STDiT 


r ( EDITD Y 
EDIT=< EDITR > 
(NOEDIT). 


T (NOCHK 

[VERCHK=jvoKCHi 


[MINLN=n] 


y] 


[MAXLN=n] 

[>EPLACE= 


X-19T 

X'xx 1 ;- 


ERROPT=/ N Q R M A L n 

INOERR (J 


valid only with TYPE=MTST 
specification. 


Valid only with TYPE=MTDI 
specification. 

Valid only with TYPE=MTDI and either 
an EDIT=EDITD or EDIT=EDITR 
specification. 

Valid only with TYPE=MTDI and either 
an EDIT=EDITD or EDIT=EDITR 
specification. 

Default=l 20 


This operand is ignored if a user routine 
is specified for the ERROR operand in the 
EXITS utility control statement. 


[ERROR=routine name] 

This exit is taken just prior to 
passing an error record to the 
error output data set (SYSUT3) 

[OUTREC=routine name] 

This exit is taken just prior to 
passing a record to the normal 
output data set (SYSUT2). 

[OUTHDR2=routine name] 

This exit is taken during the 
opening of the SYSUT2 data set. 

[OUTHDR3=routine name] 

This exit is taken during the 
opening of the SYSUT3 data set. 

[CUTTLR2=routine name] 

This exit is taken during the 
closing of the SYSUT2 data set. 

[OUTTLR3=routine name] 

This exit is taken during the 
closing of the SYSUT3 data set. 


[label] 


^ If you code more than one operand, separate them with commas. 
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IEBUPDTE 


IEBUPDTE, a data set utility: 

• Changes data set organization. 

• Converts to partitioned, sequential datasets. 

• Converts to sequential, a partitioned data set. 

• Copies members. 

• Copies sequential data sets. 

• Creates a library of partitioned members. 

• Deletes records in a partitioned data set. 

• Edits and converts to partitioned, a sequential data set. 

• Edits and copies a sequential data set. 

• Enters a procedure into a procedure library. 

• Includes changes to members or sequential data sets. 

• Inserts records into a partitioned data set. 

• Modifies a partitioned or sequential data set. 

• Numbers records in a new member or in a partitioned data set. 

• Prints a sequential data set. 

• deblocks a sequential data set. 

• Renumbers logical records. 

• Replaces logical records, members, records in o member, or 
records in a partitioned data set. 

• Updates in place, a partitioned data set. 


Return Codes 

00 - indicates successful completion. 

04 - indicates that a control statement is coded incorrectly or used erroneously. 
If either the input or output is sequential, the job step is terminated. If 
both are partitioned, the program continues processing with the next 
function to be performed. 

12 - indicates an unrecoverable error. The job step is terminated. 

16 - indicates that a label-processing code of 16 was received from a user's 
label-processing routine. The job step is terminated. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=I EBUPDTE,PARM=( j NEW ([ , inhdr J [, infir ]) 



) mod [ 

//SYS PRINT 

DD 

data set definition (output messages) 

//SYSUT1 

DD 

data set definition (input data set) 

//SY9UT2 

DD 

data set definition (output data set) 

//SYSIN 

DD 

j * 1 



j data} 

./ "IEBUPDTE control statements" 

(optional data 

or label statements) j 

/* 


_1 
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IEBUPDTE (cont'd) 


Function Statements 


A function statement is used to initiate the utility operation. At least one function 
statement must be provided for each member or data set to be processed. A function 
statement contains: 


1 -2 

Name 

Operation 

Operands j 

-/ 

[label] 

(ADD 1 ) 

)REPL ( 

iCHANGEt 
f REPRO 1 

[LI ST-ALL] 

[SEQFLD -ddl] 

[ NEW=PO] 
[NEW=PS] 

[ MEMBER-cccccccc 

[COLUMN=dd] 

[UPDATE-INPLACE] 

Applicable to partitioned 
or sequential organization. 




[ INHDR-cccccccc] 

[ INTLR-cccccccc] Applicable to sequential 

[ OUTHDR-cccccccc] organization only. 
[OUTTLR-cccccccc] 

[ T OTAL- (routinename, size) ] 




[ N AME-cccccccc] 

[LEVEL-hh] 

[ SOURCE=x] 
[SSI=hhhhhhhh] 

Applicable to partitioned 
organization only. 


1 If you code more than one operand, separate them with commas. 


Detail Statements 

A.detail statement is used with a function statement for certain applications, such as 
deleting or renumbering selected logical records. A detail statement contains: 


1-2 

Name 

Operation 

Operands 

./ 

[label] 

(number 1 ) 

(DELETE j 

[SEQl=cccccccc] Used with the NUMBER or 

[SEQ2=cccccccc] DELETE statement. 

[SEQ1-ALL] 

[NEWl=cccccccc] Used only with the NUMBER 

[INCR=cccccccc] statement. 

[INSERT-YES] 


1 If you code more than one operand, separate them with commas. 


Data Statement 

A Data Statement is used with a Function statement, or with a Function statement and 
a Detail statement. It contains a logical record used as replacement data for an exist¬ 
ing logical record, or new data to be incorporated in the output master data set. 


Label Statement 

The LABEL statement indicates that the following data statements are to be treated as 
user labels. These new user labels are placed on the output data set. The next Function 
statement indicates to IEBUPDTE that the last label data statement of the group has been 
read. The label statement contains: 


1-2 

Name 

Operation 

./ 

[label] 

LABEL 
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IEBUPDTE (cont'd) 

ALIAS Statement 


An ALIAS statement creates or retains an alias in an output (partitioned) master directory. 
The ALIAS statement can be used with any of the function statements. Multiple alias 
names can be assigned to each member. The ALIAS statement contains: 


1-2 

Name 

Operation 

Operand 

./ 

[label] 

ALIAS 

NAME=cccccccc 


ENDUP Statement 

An ENDUP statement can be used to indicate the end of SYSIN input to this job step. 
It serves as an end-of-data indication if there is no other indication. The ENDUP 
statement follows the last group of SYSIN control statements and contains; 


1-2 

Name 

Operation 

./ 

[label] 

ENDUP 
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IEHATLAS 

I EH ATLAS, a system utility: 

• Analyzes tracks on direct access. 

• Assigns alternate tracks to a direct access volume. 

• Gets alternate tracks on a direct access volume. 

• Recovers data from defective tracks on direct access volumes. 

• Replaces data on an alternate track. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=I EHATLAS 

//SYS PRINT 

DD 

data set reference (output messages) 

//SYSUT1 

DD 

data set definition (data set that contains the 



bad record) 

//SYS IN 

DD 

* 


' 1EHATLAS 

control statements" 

/* 




Control Statements 


The utility control statement consists of either: 

| TRACK=bbbbcccchhhhrrkkdddd[S] 


or 


VT OC=bbbbcccchhhhrrkkdddd 


TRACK= 

specifies that an alternate track is to be assigned for a track that does 
not contain VTOC records. 

VTOC= 

specifies that an alternate track is to be assigned for a track that contains 
VTOC records. 
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IEHDASDR 


IEHDASDR, a system utility: 

• Analyzes tracks on direct access. 

• Assigns alternate tracks to a direct access volume. 

• Changes the volume serial number of a direct access volume. 

• Copies a direct access volume. 

• Copies dumped data from tape to direct access. 

• Dumps a direct access volume. 

• Gets alternate tracks on a direct access volume. 

• Initializes a direct access volume. 

• Lists the contents of a direct access volume on a system 
output device. 

• Restores a dumped direct access volume from tape. 

• Writes I PL records and a program on a direct access volume. 


Return Codes 

00 - indicates successful completion. 

04 - indicates that an unusual condition was encountered; 
however, the overall result is successful. A warning 
message is issued. 

08 - indicates that a specified operation did not complete success¬ 
fully. An attempt is made to perform any additional operations. 

16 - indicates that either an error occurred upon invoking IEHDASDR, 
or IEHDASDR was unable to open the input or message data set. 
The job step is terminated. 


Job Control Statements 


//name 

// 


//SYS PRINT 

//anyname 

//tapename 

//SYSIN 

/* 


JOB 

PGM=IEHDASDR H PARM=' N=n' 

, PARM= , LINECNT=xx‘ 

[_, PARM='UNECNT=xx, N=n 
DD data set definition (output messages) 

DD data set definition (direct access device) 

DD data set definition (magnetic tape unit) 

DD * 

'IEHDASDR control statements" 


The optional PARM information is used by the program to control line density 
on output listings, and to indicate the maximum number of operations of the 
same type that can be performed concurrently in the job step. 

LINECNT=xx 

specifies the number of lines per page in the listing of the SYSPRINT 
data set. The number xx is a 2-digit decimal number ranging from 
01 to 99. 


specifies a decimal number from 1 to 6. The number represents the 
maximum number of like functions that can be performed concurrently 
by the IEHDASDR program. 


Control Statements 


ANALYZE 

used to analyze the recording surface to test for defective tracks, 
assign alternates for any defective tracks found, and format the 
volume to make it ready for use. 

FORMAT 

used to make a volume ready for use without performing an analysis 
of the recording Surface. 

LABEL 

used to change the volume serial number of a direct access volume 
and, optionally, to update the owner field. 
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Control Statements (cont'd) 


GETALT 

used to assign an alternate track for a specified track. 

DUMP 

used to dump a single track, a group of tracks, or an 
entire direct access volume. 

RESTORE 

used to restore a previously dumped direct access volume 
to a direct access device. 

IPLTXT 

signals the beginning of IPL program text statements. 

PUTIPL 

specifies that IPL records and a program are to be written 
on a direct access device. 


Format 


Name 

Operation 

Operands 

[label] 

ANALYZE 

f TODD=(cuu, ...) ) 

l TODD=(ddname, ...)/ 

, VTOC=xxxxx 

,EXTENT=xxxxx 

[,NEWVOLID=serial] 

[,IPLDD=ddname] 

[' fLAGTEST 1^S}] 

r sEs t)] 

[, OWNERID=name] 

r G T.o}] 

[,MSS] 

[label] 

FORMAT 

TODD=(ddname, . .. 
, VTOC=xxxxx 
, EXTENT=xxxxx 
[, NEWVOLID=seria 
[, IPLDD=ddname] 
[,OWNERID=name] 

[' PURGE= {^}] 

] 

[label] 

LABEL 

TODD=f cuu f 

lddname/ 

, NEWVOLID=serial 
[, OWN ERI D=name] 

[label] 

GETALT 

TODD=ddname 
, TRACK=cccchhhh 

[label] 

DUMP 


: ROMDD=ddname 

TODD=(ddname, .. .) 

,CPYVOLID=| YES 

, BEGIN=cccchhhh] 

, END=cccchhhh] 

[' PURGE= {^}] 

[label] 

RESTORE 

TODD=(ddname, ... 
, FROMDD=ddname 
[,CPYVOUD=f YE 

L INC 

r RGE= ©] 

>}] 

[label] 

IPLTXT 

_ 
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IEHDASDR (cont'd) 


Format (cont'd) 


[label] 

PUTIPL 

FROMDD=ddname 



,TODD=ddname 



£pURGE=j YES\1 



[ INO/J 


PURGE=YES - Operator Replies 


Reply 

Meaning 

U 

All unexpired data sets on the volume can be overwritten. 

(The operation continues.) 

T 

The volume contains unexpired data sets that must not be 
overwritten. (The operation is terminated.) 
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IEHINITT 

IEHINITT, a system utility: 

• Labels magnetic tape volumes. 


Return Codes 

00 - successful completion. A message data set was created. 

04 - successful completion. No message data set was defined by the user. 

08 - the program completed its operation but error conditions were encountered 
during processing. A message data set was created. 

12 - the program completed its operation but error conditions were encountered 
during processing. No message data set was defined by the user. 

16 - the program terminated operation because of error conditions encountered 
while attempting to read the control data set. A message data set was 
created if defined by the user. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=IEHINITT[,PARM=LINECNT=nn] 

//SYS PRINT 

DD 

data set definition (sequential output) 

//anyname 

DD 

data set definition (tape unit-labeling) 

//SYS IN 

DD 

* 


"INITT control statement(s) n 

/* 


The optional PARM information on the EXEC statement specifies the number 
of lines to be printed between headings in the message data set. 


Control Statements 

The IEHINITT program uses an INITT utility control statement to provide control 
information for a labeling operation. Any number of INITT utility control statements 
can be included for a given execution of the program. An identically named DO 
statement must exist for a utility control statement in the job step. 


Format 


Name 

Operation 

Operands 

label 

INITT 

SER=xxxxxx 

[, OWNER='cccccccccc[cccc]'] 

[,NUMBTAPE=n] 
f,DISP=REWIND \ 

1 .DISP=UNLOAD f 
[, LABTYPE=AL] 
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IEHIOSUP 


IEHIOSUP, a system utility: 

• Updates TTR entries in the supervisor call library. 


Return Codes 

00 - successful completion. 

12 - an unrecoverable error has occurred. The job step is terminated. 


Job Control Statements 


//name 

JOB 


// 

EXEC 

PGM=IEHIOSUP 

//SYSUT1 

DD 

data set definition (object data set - SYS1 .SVCLIB) 

//SYS PRINT 
/* 

DD 

data set definition (output messages) 


Control Statements 

IEHIOSUP is executed or invoked with job control statements. No 
utility control statements are required. 
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IEHLIST 


IEHLIST, a system utility: 

• Lists a volume table of contents. 

• Lists partitioned directories. 

• Lists the contents of the catalog (SYSCTLG) data set. 


Return Codes 

00 - successful completion. 

08 - due to an error condition, a specified request was ignored. 
Processing continues. 

12 - indicates that a permanent input/output error occurred. The Job 
is terminated. 

16 - indicates that an unrecoverable error occurred while reading the 
data set. The job is terminated. 


Job Control Statements 


//name 

JOB 

parameters 

// 

EXEC 

PGM=IEHLIST[ / PARM='LI NECNT=xx'] 

//SYSPRINT 

DD 

data set definition (output message) 

//anyname1 

DD 

data set definition (permanently mounted volume) 

//anyname2 

DD 

data set definition (mountable device type) 

//SYSIN 

DD 

* 

/* 

'IEHLIST control statements" 

The optional PARM information on the EXEC statement specifies the number 
of lines to be printed per page. The value of xx is a decimal number from 01 

1 through 99. 


_ 


Control Statements 


LISTCTLG 

used to request a listing of all or part of a catalog. 

LISTPDS 

used to request a directory listing of one or more partitioned 
data sets. 

LISTVTOC 

used to request a listing of all or part of a volume table of 
contents. 


Format 


Name 

Operation 

Operands 

[label] 

LISTCTLG 1 

[VOL=device=serial ] 

[NODE=name] 

[label] 

LISTPDS 1 

DSNAME=(name[,name]...) 

[V OL=de v? ce=seri a 1 ] 
j DUMP ( 

/ FORMAT) 

[label] 

... 

LISTVTOC 1 

j DUMP j 

1 FORMAT \ 

[DATE=dddyy] 

[VOL=device=serial] 

[DSNAME=(name[,name]...) 

1 If you 

code more than 

one operand, separate them with commas. 
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IEHMOVE 

IEHMOVE, a system utility: 

• Copies a catalog. 

• Copies a direct access volume. 

• Copies a partitioned data set. 

• Copies a volume of data sets. 

• Copies cataloged data sets. 

• Copies selected members. 

• Copies sequential data sets. 

• Excludes a partitioned data set member from a copy operation. 

• Loads an unloaded data set. 

• Merges partitioned data sets. 

• Moves a catalog. 

• Moves a volume of data sets. 

• Moves cataloged data sets. 

• Moves partitioned data sets. 

• Moves sequential data sets. 

• Renames moved or copied members. 

• Replaces selected members in a move or copy operation. 

• Unloads a partitioned data set. 

• Unloads a sequential data set. 


Return Codes 

00 - successful completion. 

04 - a specified function was not completely successful. Processing continues. 
08 - a condition has occurred from which recovery is possible. Processing 
continues. 

12 - an unrecoverable error has occurred. The job step is terminated. 

16 - impossible to open the SYSIN or SYSPRINT data set. 


Job Control Statements 


//name 

JOB 

// 

EXEC 

//SYSPRINT 

DD 

//SYSUT1 

DD 

//anynamel 

DD 

//anyname2 

DD 

//tape 

DD 

//SYSIN 

DD 


parameters __ 

PGM=IEHMOVE TpARM= ('POWER-n* 

I < ‘POWER=n, LI NECNT=xx' 

L ('LINECNT-xx 1 j 

data set definition (output message) 
data set definition (work data set) 
data set definition (permanently mounted volume) 
data set definition (mountable device type) 
data set definition (tape volume) 


"IEHMOVE control statements" 


/* 


The optional PARM information in the EXEC statement is used to allocate 
additional work space and/or control line density on output listings. 

The POWER=n parameter is used to request that the normal amount of space 
for work area is to be increased n times. 

The LINECNT=xx parameter specifies the number of lines per page in the 
listing of the SYSPRINT data set. 


Control Statements 


MOVE DSNAME 

used to move a data set. 

COPY DSNAME 

used to copy a data set. 

MOVE DSGROUP 

used to move a group of cataloged data sets. 

COPY DSGROUP 

used to copy a group of cataloged data sets. 

MOVE PDS 

used to move a partitioned data set. 
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IEHMOVE (cont'd) 


Control Statements (cont'd) 


COPY PDS 

used to copy a partitioned data set. 

MOVE CATALOG 

used to move cataloged entries. 

COPY CATALOG 

used to copy cataloged entries. 

MOVE VOLUME 

used to move a volume of data sets. 

COPY VOLUME 

used to copy a volume of data sets. 


In addition, there are four subordinate control statements that can be used to modify 
the effect of a MOVE or COPY DSGROUP, MOVE or COPY PDS, or MOVE or COPY 
CATALOG operation. The subordinate statements and the control statements with 
which they can be combined are shown in the following table: 


Valid Combinations of Control Statements 


Utility Statements 

Subordinate Statements 

MOVE DSGROUP 

INCLUDE 

or 

EXCLUDE 

COPY DSGROUP 


MOVE PDS 

INCLUDE 

or 

EXCLUDE 

COPY PDS 

REPLACE 

SELECT 

MOVE CATALOG 

EXCLUDE 

or 


COPY CATALOG 



Format 


Name 

Operation 

Operands J 

[label] 

MOVE 


)SNAME=name 
TO=device=list 
, FROM=device=l ist 
, CVOL=device=serial 
UNCATLG] 
,RENAME=name] 

, FROMDD=ddname] 

, TODD=ddname] 


[label] 

COPY 


DSNAME=name 
TO=device=list 
,FROM=device=lisf 
, CVOL=device=serial 
, UNCATLG] 
[,CATLG] 

[, RENAME=name] 

[, FROMDD=ddname] 

[, TODD=ddname] 


[label] 

MOVE 

1 

DSGROUP [=name] 

, TO=device=list 
[,CVO L=device=serial] 

[, PASSWORD] 

[,UNCATLG] 

[,TODD=ddname] 
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IEHMOVE (cont'd) 


Format (cont'd) 


[label] 

COPY 

DSGROUP [=name] 

,TO=device=list 
[ ,CVOL=device=serial] 

[, PASSWORD] 

[,UNCATLG] 

[,CATLG] 

[,TODD=ddname] 

[label] 

MOVE 


> DS=name 

TO=device=serial 
, FROM=device=serial| 

, C V O L=de vi ce=ser i a 1 J 
,EXPAND=nn] 

,UNCATLG] 

,RENAME=nome] 

, FROMDD=<ldname] 

, TODD=ddname] 

[label] 

COPY 


5 DS=name 

TO=device=serial 
, F ROM=devi ce=ser ial 1 
, CVOL=device=serial J 
, EXPAND=nn] 

,UNCATLG] 

,CATLG] 

,RENAME=name] 

, FROMDD=ddname] 

, TODD=ddname] 

[label] 

MOVE 


IATALOG[=name] 

TO=device=serial 
, CVOL=device=serialj 
, FROM==device=serial j 
,FROMDD=ddname] 

, TOD D=ddname] 

l label] 

COPY 

CATALOG]=name] 

, TO=device=serial 
r,CVOL=device=seriall 
[, FROM=device=serial J 
[, FROMDD=^ddname] 

[,TODD=ddname] 

[label] 

MOVE 

VOLUME=device~seriai 
, TO=device=l 1st 

[, PASSWORD] 

[, TODD=ddname] 

[label] 

COPY 

VOLUME=device=serial 
, TO=-device=list 
[, PASSWORD] 

[,CATLG] 

l,TODD=ddname] 

[label] 

INCLUDE 

DSNAME=name 
[ ,MEMBER=membemame] 
f,FROM=device=list 1 
[, C V O L=de vi ce=$eria 1 J 

[ label] 

EXCLUDE 

< 

DSGROUP=name > 

MEMBER=membername / 

[label] 

SELECT 

] 

MEMBER=(name[, name]...) ) 

MEMBER=((name,newname)[, (name,newnane)|...)/ 

[label] 

REPLACE 

D S N AME=name 
, MEMBER=membernanrie 

T, F ROM=dev ice=ser ia 11 
[,CVOL=device=serial J 
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IEHPROGM 


IEHPROGM, a system utility: 

• Adds a password. 

• Builds a generation - data - group index. 

• Builds a generation. 

• Builds an index. 

• Catalogs a data set. 

• Catalogs a generation data set. 

• Connects volumes. 

• Creates an index. 

• Deletes a password. 

• Deletes an index structure. 

• Lists a password entry. 

• Password - protects add, delete, list, or replace password operations. 

• Releases a connected volume. 

• Renames a partitioned data set member. 

• Renames a sequential or partitioned data set. 

• Replaces a password. 

• Scratches a volume table of contents. 

• Scratches data sets. 

• Uncatalogs data sets. 

Return Codes 

00 - successful completion. 

04 - a syntax error has been found in the name field of the control statement or in the 
PARM field in the EXEC statement. Processing is continued. 

08 - a request for a specific operation has been ignored because of an invalid control 
statement or an otherwise invalid request. The operation is not performed. 

12 - an I/O error has been detected when trying to read or write from or onto 
SYSPRINT, SYSIN,or the VTOC. 

16 - an unrecoverable error has occurred. The job step is terminated. 


Job Control Statements 


//name 

JOB 

parameters r 

// 

EXEC 

PGM=IEHPROGM ,PARM='LINECNT=xx j y PRINT V 



[_ ) NOPRINTjl 

//SYSPRINT 

DD 

data set definition (output message) 

//anynamel 

DD 

data set definition (permanently mounted volume) 

//anyname2 

DD 

data set definition (mountable device type) 

//SYSIN 

DD 

* 

"IEHPROGM 

control statements" 

/* 



1 The optional PARM information on the EXEC statement is used to control the j 

number of lines 

per page 

on the output listing and to suppress printing of I 

utility control statements. The value xx is a 2-digit decimal number from | 

| 01 through 99. 


_ 


Control Statements 


SCRATCH 

used to delete a data set or member from a direct access volume. 

RENAME 

used to change the name or alias of a data set or member residing 
on a direct access volume. 

CATLG 

used to generate an entry in the index of a catalog. 

UNCATLG 

used to remove an entry from the lowest level index of the catalog. 

BLDX 

used to create a new index in the catalog. 

DLTX 

used to remove a low level index from the catalog. 


Section 8: Utilities and Service Aids 8-41 








IEHPROGM (cont'd) 


Control Statements (cont'd) 


BLDA 

used to assign an alias previously assigned to an index at the 
highest level of the catalog. 

DLTA 

used to delete an alias previously assigned to an index at the 
highest level of the catalog. 

CONNECT 

used to place an entry into an index at the highest level of 
the catalog. 

RELEASE 

used to remove an entry from the highest level index of a 
volume. 

BLDG 

used to build an index for a generation data group and 
establish the action to be taken should the index overflow. 

ADD 

used to add a password entry into the PASSWORD data set. 

REPLACE 

used to replace information in a password entry. 

DELETEP 

used to delete an entry in the PASSWORD data set. 

LIST 

used to format and list information from a password entry. 


Format 


Name 

Operation 

Operands 

[label] 

SCRATCH 

( DSNAME=name) 

IVTOC / 

,VOL=device=list 
[, PURGE] 

[, MEMBER=name] 

[ / SYS ] 

[label] 

RENAME 

DSNAME=name 

,VOL=device=list 

,NEWNAME=name 

[,MEMBER=name] 

[label] 

CAT LG 

DSNAME=name 
,VOL=device=list 
[ / CVOL=device-serial] 

[label] 

UNCAT LG 

DSNAME=name 
[ ,CVOL=device=serial] 

[label] 

BLDX 

INDEX=name 
[ ,CVOL=device=serial ] 

[label] 

DLTX 

INDEX=name 
(,CVOL=device=ser?al ] 

[label] 

BLDA 

INDEX=name 
, ALIAS=name 
[ ,CVOL=device=serial ] 

[label] 

DLTA 

ALIAS=name 
[ ,CVOL=device=serial ] 

[label] 

CONNECT 

INDEX=name 
, VOL=device=serial 
[ ,CVOL=device=serial ] 
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IEHPROGM (cont'd) 


Format (cont'd) 


Name 

Operation 

Operands 

[label] 

RELEASE 

INDEX=name 
[ ,CVOL=device=serial 1 

[label] 

BLDG 

INDEX=name 
,ENTRIES=n 
[ ,CVOL=device=serial ] 

[, EMPTY] 

[, DELETE] 

[label] 

ADD 

DSNAME=name 
[, PA$WORD2=new- password ] 

[, CP ASWORD=control -password ] 

[,TYPE=code] 

[ ,VOL=device= list] 

[, DAT A= 'user- data' ] 

[label] 

REPLACE 

DSNAME=name 

[,PASWORD1=current-password ] 

[, PASWORD2=new- password ] 

[ ,CPASWORD=control-password ] 

[ ,TYPE=code] 

[ , VOL=device= list ] 

[, DATA= 'user- data 1 ] 

[label] 

DELETEP 

DSNAME=name 

[ ,PASWORDl=current-password ] 

[ ,CPASWORD=control-password ] 

[, VOL=device= list ] 

[label] 

LIST 

DSNAME=name 
, PASWORD1 =current- password 
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IFHSTATR 

IFHSTATR, a system utility: 

• Edits and lists error statistics by volume (ESV) records. 


Job Control Statements 


// 

JOB 


// 

EXEC 

PGM=IFHSTATR 

//SYSUT1 

DD 

data set definition (input data set) 

//SYSUT2 

DD 

data set definition (output data set) 

/* 




Control Statements 

IFHSTATR is controlled by job control statements. Utility control statements are 
not used. 
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Definition of Operands 


ACTION- 

action 

specifies that the contents of a defined 
field are to be altered after the field's 
inclusion in an output record. 

ADDR= 

cuu 

specifies the channel number, c, and unit 
number, uu, of the 3211 or 3203 -4. 

ADDLABEL- 

" 

specifies the total number of additional 
labels for which space is to be allocated. 

The value can be 1 through 7. 

ALIAS- 

name 

specifies an unqualified name to be assigned 
as the alias, or specifies the unqualified name 
of the index alias to be deleted. 

BEGIN= 

cccchhhh 

specifies in hexadecimal a cylinder number, 
cccc, and head number, hhhh, that Identifies 
the first track to be dumped. 


nnnnn 

specifies a one- to five-byte reltative track 
address that identifies the first track to be 
dumped. 

BYPASS- 

YES 

specifies that no check is to be made for 
defective tracks. 

CATALOG 

[-name] 

specifies the catalog entries to be moved 
or copied. 

CATLG 


specifies that the copied data set(s) is to 
be cataloged on its receiving volume(s) 
if it is a direct access volume. If a 
catalog does not exist on the receiving 
volume, it is created. 

CDINCR- 

n 

specifies the increment to be used in 
generating sequence numbers. If 

CDINCR is omitted and CDSEQ is 
coded, 10 is assumed as an increment 
value for sequence numbering. 

CDSEQ 

» 

specifies the initial sequence number of a deck 
of punched cards. 

CHARACTER- 

character 

specifies the starting character of a field. 

CNTRL- 

n 

specifies a control character for the output device 
that either indicates line spacing, or is used to select 
the stacker as follows: 1 indicates single spacing or 
first stacker; 2 indicates double spacing or second 
stacker; and 3 indicates triple spacing. 
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Definition of Operands (cont'd) 


COLUMN= 

dd 

specifies, in decimal, the starting column of a data 
field within a logical record image. The field extends 
to the end of the image. Column is valid only when 
CHANGE is coded. 

CPASWORD= 

control - 
password 

specifies the control password for the data set. 

CPYVOLID= 

YES 

specifies that all receiving or restored direct access 
volumes are to be assigned the serial number of the 
dumped volume. 


NO 

specifies that receiving or restored volumes are to 
keep their own serial numbers. 

CVOL= 

device= 

serial 

specifies the device type and volume serial number 
of the volume, catalog entry, or index to be operated 
upon. 

CYCLE= 

number 

specifies a number of output records that are treated 
as a group by the INDEX keyword. 

DATA= 

ALL 

specifies that user labels are to be treated as data 
regardless of any return code. 


INPUT 

specifies that user labels for the output data set are 
supplied as 80 byte input records in the data portion 
of SYSIN. 


NO 

specifies that user labels are not to be treated as data. 


ONLY 

specifies that only user header labels are to be treated 
as data. 


routinename 

specifies the symbolic name of a routine that modifies 
the physical record before it is processed by IEBGENER. 


'user-data' 

specifies that user data is to be included in the pass¬ 
word entry. The user data must be in single quotes 
and must not exceed 77 characters. 


YES 

specifies that any user labels that are not rejected by 
a user's label processing routine are to be treated as 
data. 

DATE = 

dddyy 

specifies that each entry that expires before this date 
is to be flagged with an asterisk(*) in the listing. 

DELETE 


specifies that generation data sets are to be scratched 
after their entries are removed from the index. 

DEVT = 

3203-4 

3211 

specifies the 3203 -4 printer, 
specifies the 3211 printer 
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Definition of Operands (cont'd) 


DISP= 

REWIND 

specifies that a tape is to be rewound (but not unloaded) 
after the label has been written. 


UNLOAD 

specifies that a tape is to be unloaded after the label 
has been written. 

DSGROUP 

=name 

specifies a qualified name. 


[=name] 

specifies the cataloged data sets to be processed. 

DSNAME= 

name 

specifies the fully qualified name of the data set to be 
processed. 


(name[,name],. 

specifies the fully qualified names of the data sets whose 
directories or entries are to be listed. 

DUMP 


specifies that the listing is to be in unedited, hexa¬ 
decimal form. 

EDIT= 

EDITD 

specifies that the input is to be edited and that SOR 
and EOR codes are to be deleted and not included as 
part of the output record. 


EDITR 

specifies that the input is to be edited and SOR and 

EOR codes are to be kept as part of the output record. 


NOEDIT 

specifies that no editing is to be performed. 

EMPTY 


specifies that all entries be removed from the 
generation-data-group index when it overflows. 

END= 

cccchhhh 

specifies,in hexadecimal, a cylinder number, cccc, 
and head number, hhhh, that identify the last track to 
be dumped. 


nnnnn 

specifies the relative track address of the last track 
to be dumped. 

ENTRIES= 

" 

specifies the number of entries to be contained in the 
generation-data-group index; n must not exceed 255. 

ERROPT= 

NORMAL 

specifies that all error records are to be placed in the 
error data set (SYSUT3). 


NOERR 

specifies that all records (including error records) are 
placed in the normal output data set (SYSUT2). No 
records are placed in the error data set (SYSUT3). 

ERROR= 

routinename 

specifies the symbolic name of a routine that is to 
receive control for error handling. 

EXIT= 

routinename 

specifies the name of a user routine that is to receive 
control from IEBDG before writing each output record. 

EXPAND^ 

nn 

specifies the number of 256-byte records (up to 99 
decimal) to be added to the directory of the specified 
partitioned data set. 

EXTENT = 

nnnn 

specifies the length (number of tracks) of the VTOC. 


xxxxx 

specifies the decimal length of the VTOC in tracks. 

FCB = 

STDl 

specifies the standard FCB image-id STDl (6 lines 
per inch on an 8.5 inch form). 


STD2 

specifies the standard FCB image-id STD2 (6 lines 
per inch on an 11 inch form). 

F1ELD= 

conversion 

specifies a two-byte code that indicates the type 
of conversion to be performed on this field. 
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Definition of Operands (cont'd) 


FIELD= 

(cont’d) 

input- 

location 

specifies the starting byte of the field to be processed. 


length 

specifies the length (in bytes) of the input field or 
literal to be processed. 


’literal 1 

specifies a literal (maximum length of 40 bytes) to be 
replaced in the specified output location. 


output- 

location 

specifies the starting location of this field in the out¬ 
put records. 

FILL= 

’character’ 

specifies an EBCDIC character to be placed in each 
byte of the defined field or output record. 


X’2 hex-digits’ 

specifies two hexadecimal digits to be placed in each 
byte of the defined field or output record. 

FLAGTEST= 

NO 

specifies that the program is not to check for previously 
flagged tracks on this volume. 


YES 

specifies that each track is to be checked to see if it 
was previously flagged as defective. 

FOLD= 

N 

specifies that lower case letters are not to be printed 
as upper case letters. 


Y 

specifies that lower case letters are to be printed as 
upper case letters when the lower case print train is 
not available. 

FORMAT 


specifies that the listing is to be edited for each 
directory entry, or that a comprehensive edited 
listing is to be generated. 

FORMAT= 

pattern 

specifies an IBM-supplied pattern that is to be placed 
in the defined field. FORMAT= must not be used 
when PICTURE is used. 

FORME ND= 

x 

specifies the number of lines (max. 180) on the 
printer form. For an 11 inch form, spacing six 
lines per inch, x must be 66. 

FROM= 

device= 

list 

specifies the volume or volumes on which the data 
set currently resides, if it is not cataloged. 


devi ce= 
serial 

specifies the device type and volume serial number 
of the volume to be processed. 

FROMADDR= 

cuu 

specifies channel number, c, and unit number, uu, 
of the source device. 

FROMDD= 

ddname 

specifies the ddname of the DD statement defining 
the device that contains the appropriate input data. 

FROMDEV= 

xxxx 

specifies the type of the source device, for example, 
3330 or 2400. 

FROMLOC= 

number 

specifies the location of the selected field within the 
input logical record. 

IDENT= 

input- 

location 

specifies the starting location of the field that con¬ 
tains the identifying name in the input records. 

_— —..7-- —__- - 
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Definition of Operands (cont'd) 


IDENT= 

(cont'd) 

length 

specifies the length (in bytes) of the identifying 
name of the last record of the input group to which 
the FIELD parameters or member statement applies. 
The length cannot exceed eight characters. 


'name' 

specifies the exact literal that identifies the last 
record of a record group. 

INCR= 

cccccccc 

specifies the increment value used for assigning 
successive sequence numbers to new or replace¬ 
ment logical records, or specifies an increment 
value used for renumbering existing logical records. 

INDD= 

ddname 

specifies the ddname which is indicated on a DD 
statement of an input data set. 


R 

specifies that all members to be copied or loaded 
from this input data set are to replace any identi¬ 
cally named members on the output partitioned 
data set. 

INDEX= 

name 

specifies the qualified name of the index to be 
processed, or specifies the unqualified index name 
to be acted upon. 


number 

specifies a number to be added to this field when¬ 
ever a specified number of records have been 
written. 

INHDR= 

cccccccc 

specifies the symbolic name of a user routine that 
handles any user input (SYSUT1) header labels. 


routinename 

specifies the symbolic name of a routine that 
processes user input header labels. 

INITPG= 

" 

specifies the initial page number; the pages are 
numbered sequentially thereafter. 

INPUT= 

ddname 
(ddname,...) 

specifies the ddname of a DD statement defining 
a data set used as input to the program. 


SYSIN[(cccc)] 

specifies that the SYSIN data set contains records 
(other than utility control statements) to be used 
in the construction of output records. 

INREC= 

routinename 

specifies the symbolic name of a routine that 
manipulates each logical record before it is 
processed. 

INSERT= 

YES 

specifies the insertion of a block of logical 
records. 

INTLR= 

cccccccc 

specifies the symbolic name of the user routine 
that handles input (SYSUT1) trailer labels. 


routinename 

specifies the symbolic name of a routine that 
processes user input trailer labels. 

IOERROR= 

routinename 

specifies the symbolic name of a routine that 
handles permanent I/O error conditions. 

IPL= 

YES 

specifies that an IPL program is to be written on 
the volume. 

IPLDD= 

ddname 

specifies the ddname of a DD statement defining 
the data set containing the IPL program. 
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Definition of Operands (cont'd) 


ITEM= 

output- 

location 

specifies the starting position at which a literal 
for this item is to be placed in the output record. 


■title' 

specifies the title or subtitle literal (maximum 
length of 40 bytes), enclosed in apostrophes. 

KEY= 

routinename 

specifies the symbolic name of a routine that 
creates the output record key. 

LABELS= 


indicates the number of records in the SYSIN data 
set to be treated as user labels. The number n 
is a number from 1 to 8. If this parameter is 
included, DATA=INPUT must be coded on a LABELS 
statement before it is in the input stream. 

LABTYPE= 

AL 

specifies that an ANS volume label is to be created. 

LENGTH= 

length 
in bytes 

specifies the length in bytes of the defined field. 

LEVEL= 

hh 

specifies the change (update) level in hexadecimal 
(00-FF). This parameter is valid only when a 
member of a partitioned data set is being processed. 

LIST= 

ALL 

specifies that the SYSPRINT data set is to contain 
the entire updated member or data set and the con¬ 
trol statements used in its creation. 


NO 

specifies that the names of copied members are not 
to be listed on SYSPRINT at the end of each input 
data set. 

LNCH= 

(0,c)[,(l,c,). 

. .])specifies the channels of the FCB image. Each set 
of parentheses must contain the line number (1-180), 
a comma, and the channel number (1-12) to be 
assigned to that line. One or all of the 12 channels 
may be assigned in any order. Each set must be 
separated by commas and the entire group surrounded 
by parentheses. 

LPI= 

6 

specifies that six lines per inch will be printed. 


8 

specifies that eight lines per inch will be printed. 

MAXFLDS= 


specifies a number that is no less than the total num¬ 
ber of FIELD parameters appearing in subsequent 

RECORD statements. MAXFLDS is required if there 
are any FIELD parameters in subsequent RECORD 
statements. 

MAXGPS= 


specifies a number that is no less than the total 
number of IDENT parameters appearing in subsequent 
RECORD statements. MAXGPS is required if there are 
any IDENT parameters in subsequent RECORD state¬ 
ments. 

MAXLINE= 

n 

specifies the maximum number of lines to a printed 
page. Spaces, titles, and subtitles are included in 
this number. 

MAXLITS= 

n 

specifies a number that is no less than the total 
number of characters contained in the FIELD or IDENT 
literals of subsequent RECORD statements. 

MAXLN= 


specifies the number of bytes, plus four for the record 
descriptor word when variable records are specified, 
to be contained in all but the last record passed to 
the output routine when editing is not performed. 
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MAX NAME= 

n 

specifies a number that is no less than the total 
number of member names and aliases appearing in 
subsequent MEMBER statements. MAX NAME is 
required if there are one or more MEMBER state¬ 
ments. 

MEMBER= 

cccccccc 

specifies a name to be assigned to the member 
placed in the partitioned data set defined by the 
SYSUT2 DD statement. 


membername 

specifies the name of a member of the partitioned 
data set named in the DSNAME parameter, or 
identifies a member to be excluded from the parti¬ 
tioned data set being moved or copied when the 

EXCLUDE statement modifies a MOVE partitioned 
data set or COPY partitioned data set statement. 


((] membername 1 

[,membername2]... [)] 



specifies members on the input data set that are not 
to be copied, unloaded, or loaded to the output data 
set. The members are not deleted from the input data 
set unless the entire data set is deleted. 


name 

specifies the name or alias for a member (in the named 
data set) that is to be processed. 


(name[,name).. 

) identifies the members to be moved or copied. 


((name,newname)[, (name,newname)]...) 



identifies the members to be moved or copied and 
gives the new name for each member. 


newname 

specifies a newname for a selected member. 


R 

specifies that the input member is to replace any 
identically named member that exists on the output 
partitioned data set. The replace option is not 
valid for an unload operation. 

MINLN= 

" 

specifies the byte length of the shortest valid edited 
record. 

MODE= 

mm 

specifies the bit density for data written onto the 
receiving magnetic tape volume. 

MODEL= 

" 

specifies a decimal model number (1 or 2) for the 

2305. 

NAME= 

aliasname 

cccccccc 

indicates the name of the member placed in the 
partitioned data set, or specifies a one- to eight- 
character alias depending on the operation. 


membername 

specifies a member by its member name. 


name 

(name!,...) 

(name 1, namen...) 

(name, (COPY=name1,namen...)...) 



specifies the name of the field defined by this FD 
statement, or specifies the name(s) of a field(s) to 
be included in the applicable output records, (cont'd) 
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Definition of Operands (cont'd) 


Continued from 
preceding page 


COPY indicates that all fields named in the inner 
parentheses (maximum of twenty) are to be treated 
as a group and included the specified number of 
times in each output record. 


(name [, alias]. 

..) specifies a member name followed by a list of its 
aliases. 

NEW= 

PO 

specifies that the old master data set is a sequential 
data set, and that the updated output is to become 
a member of a partitioned data set. 


PS 

specifies that the old master data set is a partitioned 
data set, and that a member of that data set is to be 
converted into a sequential data set. 

NEWNAME= 

name 

specifies the new fully-qualified name for the data 
set, or the new member of alias. 

NEW1 = 

cccccccc 

specifies the first sequence number assigned to new 
or replacement data, or specifies the first sequence 
number assigned in a renumbering operation. 

NEWVOLID= 

serial 

specifies a one- to six-character volume serial 
number. 

NODE= 

name 

specifies a qualified name. 

NOPRINT 


specifies that the message data set is not to include 
a listing of the output data set. 

NUMBTAPE= 

n 

specifies the number of tapes to be labeled according 
to specifications made in this control statement. The 
value n represents a number from 1 to 255. 

OUTDO 

ddname 

specifies the name of the output partitioned data set. 

OUTHDR= 

cccccccc 

specifies the symbolic name of the user routine that 
handles any user output (SYSUT2) header labels. 


routinename 

specifies the symbolic name of a routine that creates 
user output header labels. 

OUTHDR2= 

routinename 

specifies the symbolic name of a routine that receives 
control during the opening of the SYSUT2 data set. 

OUTHDR3= 

routinename 

specifies the symbolic name of a routine that receives 
control during the opening of the SYSUT3 data set. 

OUTPUT^ 

(ddname) 

specifies the ddname of the DD statement defining the 
output-data set. 

OUTREC= 

routinename 

specifies the symbolic name of a routine that mani¬ 
pulates each logical record before it is printed or 
punched, or specifies the symbolic name of a routine 
that receives control before the record is passed to 
the normal output data set (SYSUT2). 

OUTTLR= 

cccccccc 

specifies the symbolic name of the user routine that 
handles any user output (SYSUT2) trailer labels. 


routinename 

specifies the symbolic name of a routine that 
processes user output trailer labels. 

OUTTLR2= 

routinename 

specifies the symbolic name of a routine that receives 
control during the closing of the SYSUT2 data set. 
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OUTTLR3= 

routinename 

specifies the symbolic name of a routine that receives 
control during the closing of the SYSUT3 data set. 

OWNER= 

’ccccccccccfcccc}' 



specifies the owner's name or similar identification. 

The information is specified as character constants, 
and can be up to 10 bytes in length for EBCDIC and 

BCD volume labels, or up to 14 bytes in length for 

ANS volume labels. 

OWNERID= 

name 

specifies a one- to ten-character name or other 
identifying information. OWNERID is specified as 
an EBCDIC character string with the exclusion of the 
blank and the comma characters. 


xxxxxxxxxx 

specifies a one- to ten-character field that identifies 
the owner of the volume. 

PASSES= 

" 

specifies the number of passes to be made in analyzing 
a recording surface. 


0 

specifies that the ANALYZE function is to bypass all 
surface analysis and track formatting, writing only a 
a VTOC, track zero records (IPL bootstrap and volume 
label records), and IPL text if requested. 

PASSWORD 


specifies that password protected data sets contained in 
the group are to be included in the operation. 

PASSWORDS 

current- 

password 

specifies the current password in the entry to be includ¬ 
ed in the operation. 

PASSWORD2= 

new-password 

specifies the new password to be assigned to the entry. 

The password can consist of one- to eight-alphameric 
characters. 

PDS= 

name 

specifies the fully qualified name of the partitioned 
data set to be moved or copied. 

PICTURE^ 

B 1 decimal number 1 1 



specifies a decimal number that is to be converted to 
binary and right-aligned in the defined field. 


'character string* 

specifies an EBCDIC character string that is to be 
placed in the defined field or applicable records. 


length 

specifies the number of bytes the picture will occupy. 


p'decimal number' j 



specifies a decimal number that is to be converted to 
packed decimal and right-aligned in the defined field. 


startloc 

specifies a starting byte (within any applicable out¬ 
put record) in which the picture is to begin. 

PRECOMP= 

routinename 

specifies the symbolic name of a routine that processes 
logical records (physical blocks in the case of VS or 

VBS records longer than 32K bytes) from either or 
both of the input data sets before they are compared. 

PREFORM^ 

A 

specifies that an ASA control character is provided 
as the first character of each record to be printed or 
punched. 
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PREFORM= 

(cont’d) 

M 

specifies that a machine-code control character is 
provided as the first character of each record to be 
printed or punched. 

PURGE 


specifies that each data set specified by DSNAME or 
VTOC be scratched, even if its expiration data has 
not elapsed. 

PURGE= 

YES 

indicates that all unexpired data sets on the volume 
can be overwritten provided that the operator signals 
his concurrence when the first unexpired data set is 
encountered, or that the program may be written over 
any user labels, or over any data that follows the 
volume label record. 


NO 

specifies that the operation is to be terminated if an 
unexpired data set is encountered, or specifies that 
the program may not be written over standard user 
labels. 

QUANTITY= 

number 

number[,CREATE= 

number] 



specifies the number of records that this statement is 
to generate (each record is specified by the other 
parameters), or specifies the number of times the 
defined group of CREATE statements is to be used 
repetitively. 



CREATE specifies the number of following CREATE 
statements to be included in the group. 

RANGE= 

number 

specifies an absolute value which the contents 
of this field can never exceed. 

RENAME= 

name 

specifies that the data set is to be renamed, and 
indicates the new name. 

REPLACE= 

X’xx’ 

specifies the hexadecimal representation of the 
character to be used by IEBTCRIN to replace error 
bytes. 

SEQFLD= 

ddl 

specifies, in decimal, the starting column (up to 
column 80) and length (8 or less) of sequence numbers 
within existing logical records and subsequent Data 
statements. 

SEQ1= 

cccccccc 

specifies the sequence number of the first logical 
record to be renumbered or deleted. 


ALL 

specifies a renumbering operation for the entire 
member or data set. 

SEQ2= 

cccccccc 

specifies the sequence number of the last logical 
record to be renumbered or deleted. 

SER= 

xxxxxx 

specifies the volume serial number of the first or 
only tape to be labeled. 

SIGN= 

sign 

specifies a mathematical sign (+ or -), which is 
used when defining a packed-decimal or binary 
field. 

SKIP= 

" 

specifies that every nth record is to be printed 
or punched. 
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SOURCE= 

X 

specifies user modifications when the x value is 0, 
or IBM modifications when the x value is 1. This 
parameter is valid only when a member of a 
partitioned data set is being processed. 

SSI= 

hhhhhhhh 

specifies eight hexadecimal characters of system 
status information to be placed in the directory 
of the new master data set as four packed hexa¬ 
decimal bytes of user data. 

START= 

jobname 

specifies the name of the input job to which the 

EDIT statement applies. 

STARTLOC= 

start! ng-byte 
location 

specifies a starting location (within all output 
records using this field) in which a field is to 
begin. 

STEPNAME= 

name 

specifies the first job step to be placed in the output 
data set when coded with TYPE=POSITION. Job 
steps preceding this step are not copied to the output 
data set. When coded with TYPE=INCLUDE or 

TYPE= EXCLUDE, STEPNAME specifies the names of 
job steps that are to be included in, or excluded 
from, the operation. 

STOPAFT= 

n 

specifies, for sequential data sets, the number of 
logical records to be punched or printed. For parti¬ 
tioned data sets, this specifies the number of logical 
records to be punched or printed in each member to 
be processed. 

STRTADR= 

nnnnn 

specifies the one- to five-byte track address, relative 
to the beginning of the volume, at which the VTOC 
is to begin. 

STRTAFT= 


specifies, for sequential data sets, the number of logi¬ 
cal records to be skipped before printing or punching 
begins. For partitioned data sets, STRTAFT=n speci¬ 
fies the number of logical records to be skipped in 
each member before printing or punching begins. 

SYS 


specifies that data sets that are to be scratched have 
names that begin with "AAAAAAAA. AAAAAAAA. 
AAAAAAAA.AAAAAAAA." or "SYSnnnnn.T" and 
"T" or "V" in position 19. These names are assigned 
to data sets by the operating system. 

TO= 

device= 

list 

specifies the volume(s) to which the data set(s) is to 
be moved or copied. 

TO= 

device= 

serial 

specifies the device type and volume serial number of 
the volume to which the partitioned data set or 
cataloged entries are to be moved or copied. 

TOADDR= 

cuu 

specifies the channel number, c, and unit number, uu, 
of the message output or receiving device. 

TODD= 

cuu 

(cuu,...) 

specifies the channel and unit address of the direct 
access device containing the volume to be processed. 


ddname 
(ddname,...) 

specifies the ddname of a DD statement defining the 
device that contains the volume to be processed. 

TODEV= 

xxxx 

specifies the type of output or receiving device, for 
example, 2400. 
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TOTAL= 

routinename 

specifies the name of the user's totaling routine. 


size 

Specifies the number of bytes required for the 
user's data. 

TOTCONV= 

PZ 

specifies that data (packed decimal mode) is to 
be converted to unpacked decimal mode. 


XE 

specifies that data is to be printed or punched in 
2-character-per-byte hexadecimal representation 
(for example C3,40,F4,F6). 

TRACK= 

cccchhhh 

specifies the address of the track for which an 
alternate is requested, where cccc is the cylinder 
number and hhhh is the head number. 

TRANS= 

name 

specifies a user-translate table to be used by 
IEBTCRIN. 


NOTRAN 

specifies that no translation and no special pro¬ 
cessing is to be performed. 


STDLC 

specifies that the MTST code is to be translated 
to standard EBCDIC, alphabetic characters are 
translated as lowercase. 


STDUC 

specifies that the MTST code is to be translated to 
standard EBCDIC; alphabetic characters are trans¬ 
lated to uppercase. 

TYPE= 

code 

specifies the protection code of the password and, 
if a control password is being assigned to a direct 
access, online data set, specifies the protection 
status of the data set. 


EXCLUDE 

specifies that the output data set is to contain a 

JOB statement and all job steps belonging to the 
job except those steps specified in the STEPNAME 
parameter. 


INCLUDE 

specifies that the output data set is to contain a 

JOB statement and all job steps specified in the 
STEPNAME parameter. 


MTDI 

specifies that the input was created on a 

Magnetic Data Inscriber. 


MTST 

specifies that the input data was created on a 
Magnetic Tape Selectric Typewriter. 


POSITION 

specifies that the output is to consist of a JOB 
statement, the job step specified in the STEPNAME 
parameter, and all steps that follow it. 

TYPORG= 

PO 

specifies that the input data sets are partitioned 
data sets. 


PS 

specifies that the input data sets are sequential 
data sets. 

UCS 

image-id 

specifies UCS image-id for the 3203-4 or 3211 
printer. 

UNCATLG 


specifies that the catalog entry pertaining to the 
data set is to be removed. 

UPDATE 

INPLACE 

specifies the old master data set is to be updated 
within the space it actually occupies. The old 
master data set must reside on a direct access 
device. UPDATE is valid only when coded 
with CHANGE. 
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VERCHK= 

NOCHK 

specifies that no record verification check is 
to be made. 


VOKCHK 

specifies that a record verification check is to 
be made. 

VOL= 

device= 

list- 

specifies the volume or volumes that contain the 
data set to be processed. 


device= 

serial 

specifies the device type and volume serial number 
of the volume to be processed. 

VOLID= 

SCRATCH 

specifies that no volume serial number check is to 
be made. 


serial 

serial [,serial]. 

. specifies the volume serial number of the volume to 
be processed. 

VOL PAS S= 

0 

specifies that the volume is not security protected. 

If VOLPASS is omitted, 0 is assumed. 


1 

specifies that the volume is security protected. 

VOLUME= 

device= 

serial 

specifies the device type and volume serial number 
of the source volume. 

VTOC 


specifies that all data sets on the specified volume, 
except those protected by a password or those whose 
expiration dates have not yet expired, are to be 
scratched. 

VTOC= 

xxxxx 

specifies a one- to five-byte decimal relative 
track address representing a primary track on 
which the volume table of contents is to begin. 

The VTOC cannot occupy track 0. 
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Service Aids- Reference Summary 

0S/VS1 Service Aids Reference Summary 

This summary is a quick guide to the major or most-used functions of the service aids. 

The JCL and control statement examples are valid as shown, but they represent only 
the simplest form of the programs they illustrate. For complete information about 

control statement parameters and other details pertaining to performance, refer to 
GS/VS1 Service Aids, GC28-0665; OS/VS1 SYS1 .LOGREC Error Recording, 
GC28-0668; and OS/VS System Modification Program, GC28-0673. 

HMDSADMP 

Program Type: Stand-alone program, supplied as a macro definition in the system macro 
library SYS 1. MAC LIB. 

Function: Produces high-speed or low-speed dump of real storage. The high-speed 
version can also dump the page data sets. 

Invoked by: Performing IPL procedure on stand-alone dump program, created by 
assembling the macro instruction and executing the resulting job stream to initialize 
the dump program on a residence volume. 

When SADMP begins processing, it may begin to send messages; you must reply to these 
messages before processing can continue. (Note that if the console is unavailable, the 
dump program bypasses operator communication and attempts to dump real storage to 
the unit address specified in the HMDSADMP macro instruction). 

Controlled by: Responses to prompting messages and variations in coding the macro 
instruction, whose simplest form is: 

HMDSADMP IPL=resvolume, TYPE=speed, OUTPUT=device 

The basic variations of the macro parameters are: 

HMDSADMP TYPE= f HI ), IPL= ( Tunit ) ,OUTPUT= f TuniM 
ILOJ IDunitf I Pun it / 

Some of the prompting messages that you will encounter are : 

HMD001A TAPE= or HMD001A PTR= , which requires you to specify an output 
device or, by pressing EOB, to accept the device specified in the macro instruction. 

HMD011A TITLE = , which permits up to 100 characters of title; EOB produces an 
untitled dump. 

HMD012D ENTER Y OR N FOR PAGEDUMP= 

Replying Y (for "yes") dumps the page data set; N terminates the program. 

HMD021A PAGE DEVICE ADDRESS = , which requests the address of the page device 
that you want dumped. 

HMD024D ENTER Y OR N - PAGE DUMP CONTINUE 

Replying Y repeats the prompting messages, to obtain a dump of another page data set. 
Replying N terminates SADMP execution. 

For information about other parameters in the macro instruction, see OS/VS 1 Service 
Aids. 

Output: Unformatted hexadecimal dump written to tape or printer. Use HMDPRDMP 
to print high-speed tape output, IEBPTPCH to print low-speed tape output. 
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GTF (Generalized Trace Facility) 

Program Type: Standard feature of C-S/VS. 

Function: Traces all or selected system events, such as I/O interruptions, SIO 
operations, etc. 

Invoked by: START command, such as the following: 

START GTF .Pn,outputdevice, outputvolume, (MODE=EXT) 

START GTF .Pn,,, (MODE=INT) 

Controlled by: 

1. START options, specified either as PARM = values on the EXEC DD statement in 


the started procedure, 
command. 

The START options are 

or withi 

n parentheses as the fourth parameter on the START 

MODE= | 

INT ) 
EXT j 

INT 

requests the trace data be kept in virtual storage 
buffers. 



EXT 

requests that the trace data be written to the data set 
defined by the IEFRDER DD statement in the started 
procedure. 

DEBUG=| 

YES ) 
NO ( 

YES 

requests that all error conditions encountered by 

GTF result in termination of GTF. 



NO 

requests that GTF attempt to recover from all errors. 

TIME= | 

YES) 

Npj 

YES 

requests that each trace record produced by GTF 
contain a time stamp. 



NO 

requests that no time stamp be recorded on each record. 

BUF= 

nn 


specifies the number of buffers to be used for recording 
trace data. The allowable range is 1-255. The defaults 


if MODE= EXT, GTF obtains 3 buffers; 
if MODE=INT, GTF obtains 4 buffers. 


2. TRACE options, specified in response to prompting message HHL100A. The TRACE 
options are: 

DSP - record created whenever an SRB, LSR routine, or TASK is dispatched. 
Comprehensive unless SYSM specified also. 

EXT- comprehensive recording of all external interrupts. Ignored if SYS, 
SYSM, SYSP specified also. 

PCI - comprehensive recording of ail program-controlled l/C interrupts. 10, 
IOP, SYS, SYSM, or SYSP must also be specified. 

PI - comprehensive recording for all program interrupts. 

PIP - causes prompting for specific program interrupts identified by their 
specific code. Ignored if SYS, SYSM, or SYSP also specified. 

RNIO- comprehensive record of VTAM remote network activity. Ignore if 
SYS, SYSM, or SYSP is specified. To request minimal external 
recording, specify TRACE= SYSM, RNIO . 

SIC- - comprehensive recording for system SIO operations for all devices. 

SIOP- causes prompting for specific devices for which system SIO operations 
should be traced. Ignored if SYS, SYSM, or SYSP specified also. 

SVC - comprehensive recording for all SVC interrupts. 

SVC.P- causes prompting for specific SVC interrupts by number. Ignored if 
SYS, SYSM, or SYSP also specified. 

SYS - comprehensive recording for I/O, SIO, SVC, program, and external 
interrupts and for recovery routines. If additional event keywords 
are specified, they also result in comprehensive recording. Do not 
specify IO, SIO, RNIO, SVC, PI, or EXT with SYS. 
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SYSM- same as SYS except that minimal trace records result. Correspondingly, 
additional keywords also result in minimal recording. Do not specify 
IO, SIO, SVC, PI, or EXT with SYSM. Specify SYSM,RNIO to record 
VTAM remote network activity in minimal format. 

SYSP- causes prompting for specific SVC, IO, SIO, and PI events to be 
recorded during execution. Comprehensive records result for these 
events as well as for any additional event keywords that are 
specified at the same time. Do not specify SVC, IO, SIO, RNIO, 
or PI with SYSP. 

TRC - record created for events being traced that are associated with 
GTF. If not specified, these events are not recorded. 

USR - recording of all data passed to GTF via GTRACE macro. 

IO - comprehensive recording for all non-PCI IO interrupts. 

IOP - causes prompting for specific devices for which IO interrupts will 
be recorded. Ignored if SYS, SYSM, or SYSP also specified . 

Here is an example of trace options specified correctly: 

TRACE=SYSP,DSP, PCI,TRC 

Output: For MODE=EXT, a trace data set residing on an external device. For MODE= 

INT, trace buffers residing in main storage. Use the EDIT function of HMDPRDMP to 
format and print trace data from a core image dump or a trace data set. 

HMBLIST 

Program Type: OS/VS problem program. 

Function: Formats and prints object modules and load modules. 

Lists CSECT identification records. Maps reenterable load module area. 

Invoked by: JCL, such as the following: 

//MYJOB JOB MSGLEVEL=(1,1) 

//STEP EXEC PGM=HMBLIST 

//INPUT DD DS N=l ibname, DIS P=0 LD 

//SYSPRINT DD SYSOUT=A 

//SYS IN DD 

Control Statements 

/* 

Controlled by: Control statements, as follows: 

LISTLOAD !OUTPUT=typej |,TITLE = Ctitle*)I 

|, DDN= inputddname j [, MEMBER=membername) ] 

| ,RELOC = hhhhhh | 

Requests load module processing. OUT PUT = parameter requests either MODLIST 
(formatted listing plus ESD and RLD records), XREF (module map and cross-reference 
listing), or BOTH . RELOC allows you to specify a relocation or base address of up 
to six hexadecimal characters. 

LISTOBJ j TIT LE = ( 1 1 i 11 e ’) ] [, DDN= inputddname J 

[, MEMBER = membername J 

Requests listing of object modules. 

LIST I DR [ OUTPUT=type] [, TITLE= (‘title 1 ) ] 

{, DDN= inputddname] [ ,MEMBER= membername ] [, MODLIB] 

Requests listing of a load module's CSECT identification records. OUTPUT= parameter 
requests either IDENT (only records containing SPZAP or user-supplied data) or ALL. 
MODLIB (valid only when DDN is present) requests condensed and formatted output; 
no module summary is printed. 

LISTLPA 

Requests mapping of the reenterable load module area. 

Note that for LISTLOAD, LISTOBJ, and LI ST I DR, if you omit the DDN= parameter, LIST 
assumes a default ddname of SYSLIB. 

Output: Separate listing for each control statement. 
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IMCOSJQD 

Program Type: OS/VS problem program, residing in SYS 1 .LINKLIB . 

Function: Formats and prints all or selected records in the system job queue (SYS1 .SYSJOBQI 
data set), in the scheduler work area data set (SWADS), in the incore job list (JOB LIST), and 
in the system scheduler work area data set (SYS1 .SYSWADS). 

Invoked by: JCL such as the following: 

//DUMP JOB MSGLEVEL=(1,1) 

// EXEC PGM=IMCOSJQD 

//OSJQDIN DD DSNAME=SYS1. SYS WADS, 

// UNIT=2314,VOL=SER=111111 ,DISP=SHR 

//OSJGDOUT DD UNIT=2400,DISP=(NEW,KEEP), 

// DSNAME=QUEUEOUT, LABEL=(, NL) 

//SYSPRINT DD SYSOUT=A 

[//SYS IN DD *] 


/* 

Controlled by: Control statements in the JCL or by commands entered in response to 
prompting messages if the program is started from the console or if the //SYSIN DD 
card is omitted. The control statements are the same as for IMCJOBQD. 

Output: Complete or selected contents of JOBLIST, SWADS, SYS1 .SYSJOBQE; complete 
contents of SYS1 .SYSWADS - written to printer or magnetic tape. 

IFCDIPOO 

Program Type: OS/VS problem program. 

Function: Reinitialize or reallocate the SYS1.LOGREC data set. 

Invoked by: JCL, such as the following: 

//MYJOB JOB MSGLEVEL=(1,1) 

//STEP EXEC PGM=IFCDIP00 

//SERERDS DD DSNAME=SYS1 ,LOGREC,UNIT=2314, 

// DISP=(OLD,KEEP), VOL=SER=l 11111 

/* 

Controlled by: Variations in the SERERDS DD statement. For complete information, see 
OS/VS1 SYS1 .LOGREC Error Recording. 

Output: Initialized or reallocated SYS 1.LOGREC data set. 

HMDPRDMP 

Program Type: OS/VS problem program. 

Function: Formats and prints dump data sets, including page data sets, and GTF trace 
data. 

Invoked by: JCL, such as the following: 

//MYJOB JOB MSGLEVEL=(1,1) 

//STEP EXEC PGM=HMDPRDMP 

//TAPE DD DSNAME=dsname,VOL=SER=volser, UNIT=ddd, 

// [LABEL=(!abel)l, DISP=OLD 

//PRINTER DD SYSOUT=A 

//SYSPRINT DD SYSOUT=A 

[//SYSUT1 DD UNIT=ddd,SPACE=(2056, (n, 10))] 

[//SYSUT2 DD UNIT=2400,VOL=SER=DUMP, LABEL=(, NL), ] 

[// DISP=NEW] 

[//SYSIN DD *] 

[Control Statements] 

/* 

(For a high-density dump on the 3800, use: 

//PRINTER DD .. .CHARS=DUMP[,FCB=STD3] 

CHARS=DUMP specified high-density dump; 

FCB=STD3 specifies printing at 8 lines per inch, 80 per page.) 
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The EXEC statement invokes HMDPRDMP. The DD statements shown are used as follows: 
PRINTER - defines the PRDMP output data set. 

SYSPRINT - optional, defines the PRDMP message data set. 

SYSUT1 - required when input data set contains a dump and resides on a direct 

access device, or when input spans more than one volume. Optional, 
but enhances performance when used with an input dump data set 
that resides on a single tape. 

SYSUT2 - required clearing the SYS1 .DUMP data set. Never use SYSUT1 and 

SYSUT2 in the same step. 

SYSIN - required when entering control statements in the input stream. 

TAPE/anyname - input dato set dump or GTF trace data set. 

For details about any of the parameters used in this example, see OS/VS1 Service Aids. 

Controlled by: Control statements, entered either on cards in the input stream or in reply 
to prompting messages. They are: 

CVT=pointer - specifies the location of the CVT. 

SEGTAB=pointer - specifies the location of the segment table. 

NEWDUMP DDNAME=ddname - defines the input data set. 

NEWTAPE - requests that a new tape volume containing another input data set be 
mounted on the tape device defined by TAPE DD statement. 

ONGO value - establishes a preset combination of control statements to be requested 
in subsequent uses of the GO control statement. 

GO - requests a preset combination of control statements. If not preceded by the 
ONGO statement, requests default combination of QCBTRACE, LPAMAP, 
FORMAT, EDIT, and PRINT ALL. 

TITLE text - requests a specific dump title. 

QCBTRACE - requests a trace of GCBs in the input dump data set. 

LPAMAP - requests a map of the reenterable load module area. 

FORMAT - requests formatting of major system data areas. 

PRINT value - requests printing of parts of the input data set, as dictated by 
the subparameters, which are: 

ALL - allocated storage. 

CURRENT - storage associated with current task. 

NUCLEUS - resident nucleus, system queue area, and pageable nucleus. 

STORAGE=(addresses) - virtual storage in the address range supplied by 
beginning and ending hexadecimal address pairs. 

JOBNAME=(jobnames) - areas in virtual storage associated with specified 
jobs. 

F03 - areas of virtual storage associated with tasks terminated by DAR. 

REAL=(addresses) - real storage in the address ranges supplied by beginning 
and ending hexadecimal address pairs. 

PAGE=cuu=(ttrs) - areas of the page data set defined by device address and 
beginning and ending TTR address pairs. 

EDIT value - requests formatting of all or selected GTF trace records. 

END - requests normal termination, or, if no other control statements are 
specified, requests loading of the data set defined by the SYSUT2 
DD statement. 

For complete descriptions of the keywords used with the NEWDUMP, GNGO, 
PRINT, and EDIT control statements, see OS/VS1 Service Aids. 

Output: Formatted and printed dump or trace data. 
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IFCEREPO 

Program Type: OS/VS problem program. 

Function: Formats and prints selected error records in the SYS1 .LOGREC data set. 
Invoked by: JCL, such as the following: 

//MY JOB JOB MSGLEVEL=(1,1) 

//STEP EXEC PGM=IFCEREPO,PARM='keyword=value' 

//SERLOG DD DSNAME=SYS 1. LOGREC, DISP=(OLD, KEEP) 
//EREPPT DD SYSOUT=A 

/* 

Controlled by: Keyword parameters in the PARM= field of EXEC statement. Omitting 
a keyword causes the corresponding default value to take effect. When all defaults 
are in effect, IFCEREPO summarizes, accumulates, and prints all records in the 
SYS1.LOGREC data set. For complete information, see OS/V51 SYS1 .LOGREC 
Error Recording. 

Output: Listing of summarized and printed records. 

HMAPTFLE 

Program Type: OS/VS problem program. 

Function: Application Function : Generates control statements and invokes linkage 
editor to apply PTF dynamically. 

Generate Function: Generates job stream to apply PTFs or ICRs in a later step. 
Invoked by: Application Function: JCL, such as the following: 

//MYJOB JOB MSGLEVEL=(1, i) 

//STEP EXEC PTFLE, USE='linkageeditor l , LIB1=SVCLIB 

//PTF.MODE DD 

Control statements 

PTF object deck 

IDENTIFY control statement 

/* 

The cataloged procedure PTFLE contains symbolic parameters whose default values are 
USE='IEWL' and LIB1=LINKLIB. 

For more information, refer to OS/VS Service Aids. 

Generate Function : JCL (not invoking a cataloged procedure) such as the following: 

//GENER JOB MSGLEVEL=(1,1) 

//STEP EXEC PGM=HMAPTFLE 

//PRINT DD SYSOUT=A 

//OUTF DD UNIT=2400, LABEL=(,NL),DISP=(NEW,K EEP), 

// VOL=SER=OUTPUT 

//PCHF DD UNIT=2400, LABEL=(, NL),DISP=OLD, 

// VOL=SER=SYSGEN,DCB=(LRECL=80, BLKSIZE=80) 

//MODF DD 

Control statements 

/* 

Controlled by: PTFLE Control statement, whose format is: 

modulename SSI comments 

The module name must begin in column 1; the SSI number must begin in column 10. 
Comments may begin in column 19. For the application function, a Linkage Editor 
IDENTIFY control statement is also required: 

IDENTIFY csectname('data')[, csectname(,data')] 

Output: Application Function : Module updated with applied PTF. 

Generate Function: Job stream required to apply PTF in a later step. 
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HMASPZAP 

Program Type: OS/VS problem program. 

Function: Inspect and/or modify data in a load module or in a data set on a direct 
access device; in other words, apply local fix. 

Invoked by: JCL, such as the following: 


//MY JOB 

JOB 

MSGLEVEL=(1,1) 

//STEP 

EXEC 

PGM=HMASPZAP 

//SYS PRINT 

DD 

SYSOUT=A 

//SYSLIB 

DD 

DS NAME=dsname, D IS P=OLD 

//SYS IN 

DD 

* 


(CONSOLE) 

' [control statements] 

/* 

SPZAP can also be dynamically invoked. For details, see OS/VS1 Service Aids. 

Controlled by: Control statements, supplied either as cards in the input stream, or if 
CONSOLE is present in the input stream, as responses to prompting message HMAH6A. 
The control statements are: 

NAME member esect - specifies the CSECT to be updated. 

CCHHR address - specifies the address of the field to be updated. 

VERIFY offset content - requests comparison between field specified in offset 
parameter and data supplied in content parameter. 

REP offset data - requests replacement of field specified in offset parameter by 
field supplied in data parameter. 

IDRDATA user - provides data to be placed in the user data field of an updated 
CSECT Identification record. 

SETSSI xxyynnnn - requests updating SSI data with value supplied in xxyynnnn 
parameter. 

DUMP[T] member csect - requests dumping of a csect (or ALL csects) in the load 
module specified in the csect parameter. The optional T also requests 
translation of the dump data. 

ABSDUMP[T] value - requests dumping selected records (specify starting and ending 
track address pairs in the value field), a member (specify mernbername in 
the value field), or an entire data set (specify ALL in the value field). 

The optional T also requests translation of the dump data. 

BASE offset - requests adjustment of relative displacements by supplying base 
address in offset field. 

Output: Formatted hexadecimal dump or translated dump (if requested, or if an error 
occurred), and modified csects. 

IMCJOBQD 

Program Type: Stand-alone program, supplied as an object module in component li¬ 
brary SYS! .ASAMPLIB. Use IEBGENER to punch the module into cards or onto mag¬ 
netic tape. 

Function: Formats and prints all or selected records in the system job queue (SYS!. 
SYSJOBQE data set), in the scheduler work area data set (SWADS), in the resident 
job list (JOBLIST), or in the system scheduler work area data set (SYS1 .SYSWADS). 
Invoked by: Storing control register 0 and 1 at locations X'lCO* and X'1C4' (if you 
want full dump of the resident job list or a selective dump of SYS1 .SYSJOBQE) and 
by IPL-ing the object module that contains IMCJOBQD. 

Controlled by: Commands entered in response to prompting messages. 

In response to IMC000A, press EOB to accept default devices, or enter: 

[0=outputdeviceaddress] [,SYSW=syswadsdeviceaddress] 
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In response to IMC975A, press EOB to terminate IMCJOBQD or enter: 

SYSJOBQE - to dump all SYS1.SYSJOBQE and resident joblist. 
SYSJOBQE.S - for selective dump of SYS 1 .SYSJOBQE plus resident joblist. 
SYSWADS - to dump all of SYS 1 .SYSWADS, only. 

SYSWADS, ipnl.. ., ipn4 - for full dump of SYS 1 .SYSWADS, plus selected 
SWADS, selected by initiator procedure names. 

SWADS=(procname.Pl,procname. P2... ,procname. Pn) - to dump SWADS 
for specified initiator procedure names in the specified patitions. 

An IMC022A message will direct you to mount the volume containing the data set for 
which you requested a dump. 

In response to IMC001A (when a selective SYS 1 .SYSJOBQE dump was specified), 
press EOB to terminate dumping SYS 1 .SYSJOBQE or enter: 

CLASS=inputclass - for jobs of the specified input class. 

SYSOUT=outputclass - for jobs of the specified output class. 

JOBNAMES=(jnl. .., jn4) - for the named jobs, only. 

FREE - for the free chain of the job list. 

HOLD - for jobs held by jobname. 

QID=(qidl. . .,qid4) - for users with specified QID's, only. 

NOTE: QID=(qidl...,qid4) I",HOLD ] 

L,SYSOUT=outputclass J ,and 

JOBNAMES=(jnl..., jn4) r,CLASS=inputclass "I 

L,SYSOUT=outputclass J are valid. 

Output: Formatted listing of all or selected records. 

SERVICE AIDS USE GUIDE 

Information Gathering 

SADMP 

I . Dumps the contents of real or selected portions of virtual storage to a tape, which 
can be formatted and printed using PRDMP. (Note that SADMP output may also 
be directed to a printer). 

GTF 

2. Traces all system events. 

3. Traces selected events, such as I/O interruptions, SIO operations, etc. 

4. Traces user programs with GTRACE macro instruction. 


Patching 

PTFLE 

5. Generates control statements and JCL needed to apply PTFs, ICRs, or Program Pro¬ 
ducts; the application function also invokes the linkage editor. 

SMP (System Modification Program) 

6. Provides facilities for applying PTFs or user's modifications to executable systems, 
and to DLlBs or permanent user libraries. For information, refer to OS/VS System 
Modification Program (SMP). 

SPZAP 

7 . Modifies data in a load module. 

8. Sets traps by inserting invalid instructions or user-written SVCs. 

9. Dumps load modules by CSECT to allow examination of the text. 

10. Dumps selected data to verify the count, key and contents of the data. 

DIP00 

11 . Reinitial izes the SYS 1»LOGREC data set if destroyed . 
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Mapping, Formatting, and Printing 
PRDMP 

Specify high-density dump on the 3800 by: 

//PRINTER DD ... CHARS=DUMP[,FCB=STD3] 

12. Formats and prints the following from SADMP high-speed dumps, and SVC dumps. 

a. Link pack area. 

b. Queue control block trace. 

c. Major system data areas. 

d. Selected areas of storage by virtual or real address. 

e. Operating system nucleus. 

13. Formats and prints selected records from the GTF trace data set or from trace 
buffers in a SYS 1.DUMP or SADMP output data set. Records are selected by 
keywords such as JOBNAME, I/O, SVC, or SIO. 


LIST 

14. List specific object modules, load modules, or load modules in a data set. 

15. Maps control sections and overlay structure, and lists cross-references within a 
load module. 

16. Lists CSECT identification records for specific load modules. 

17. Lists translation data, linkage editor modification data, or SPZAP modifications 
to control sections in a load module. 

18. Maps reenterable load module area. 

EREPO 

19. Selects, formats, and prints records,record summaries, and special reports from 
the SYS1 .LOGREC data set, by record type: 

20. Selects records by device type, date, or device address. 

JOBQD and OSJQD 

21. Dumps entire SYS1 .SYSJOBQE data set. 

22. Selects, formats and prints job queue records associated with a specific job. 

23. Selects, formats, and prints job queue records associated with a specific work 
queue. 

ISDASDAO 

24. Selects records from the SYS1 .LOGREC data set, the EREP data set, or both, and 
prints cartridge error statistics and usage and error information pertaining to devices 

in the Mass Storage System. For information on SDAO, refer to OS/VS1 SYS1 .LOGREC 
Error Recording. 

NOTES: 
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The numbers in this table refer to the explanatory notes on the preceding page. For each symptom, read from left to right to find out which 
functions of these service aids you should use to diagnose and fix the problem. For complete information about IFCDIPPOO, IFCEREPO, and 
ISDASDAO, see OS/VS1 SYS1.LOGREC Error Recording. For information about the other service aids, see OS A/SI Service Aids, and OS/VS 
System Modification Program (SMP). 
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SMP Reference Summary 

SMP Reference Summary 
Syntax Format 

Write all uppercase letters as indicated. 

Write all special characters as indicated. 

You can use blanks freely in an SMP statement. Place at least 
one blank between each keyword (those in all uppercase 
letters), and between each keyword and associated para¬ 
meters. 

Words in lowercase letters represent statement parameters. An 
explanation of the parameters appears with each control 
statement. 

Parameters that may be reiterated are identified by a vertical 
line branching up and around them. 

A split in the horizontal path identifies either an optional 
parameter or a choice in parameters at that point in the 
statement. 

Direction of flow is left-to-right unless a reiteration is indicated; 
a vertical line and an arrow indicate reiteration. 
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SMP Reference Summary (cont'd) 

SMP Control Statements 

RECEIVE 

The RECEIVE statement causes SMP to read and verify an input 
file of modifications. Only one RECEIVE statement can be 
included in an SMP job step. Each PTF or user modification to be 
handled by SMP must be processed with a RECEIVE statement 
before any other SMP control statement can be used. 



No operands specified means all modifications on the file are 
processed. 

SELECT (ptf number) 

specifies the modifications that are to be processed from the 
input modification file. SELECT can be coded as S. 

EXCLUDE (ptf number) 

specifies the PTFs or user modifications that are not to be 
processed from the input file. All others will be processed. 
EXCLUDE can be coded as E. 

REJECT 

The REJECT statement causes any PTFs or modifications that 
have been processed only by the RECEIVE statement to be deleted. 
More than one REJECT statement can be included in an SMP job. 



SELECT (ptf number) 

specifies the PTFs or user modifications that are to be deleted. 
SELECT can be coded as S. 

EXCLUDE (ptf number) 

specifies the PTFs or user modifications that are not to be 
deleted. All others will be deleted. EXCLUDE can be coded 
as E. 
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SNIP Reference Summary (cont'd) 


APPLY 

The APPLY statement causes PTFs and user modifications 
processed by a RECEIVE statement to be put into the operating 
system libraries. (This statement does not cause any changes in 
the distribution - DLIB - or permanent user libraries.) There can 
be any number of APPLY statements in an SMP job. 



JZ. 


FORCE 


r 


IMUCID(c) 


ZY 


If no operand is specified, all PTFs and user modifications that 
have not been processed by an APPLY or ACCEPT statement and 
have not had the force indicator turned on during the RECEIVE 
processing will be put into the system. 

SELECT (ptf number) 

specifies the PTFs or user modifications that are to be put in 
the operating system. SELECT can be coded as S. 

EXCLUDE (ptf number) 

specified the PTFs or user modifications that are not to be put 
in the operating system. All others will be processed. 
EXCLUDE can be coded as E. 

FORCE 

must be specified if you want the PTF and user modifications 
that have the FORCE indicator set to be put in the operating 
system. 

NUCID (n) 

n is a numeral that is put on the end of IEANUCO to form a 
name under which the current nucleus is saved when the 
nucleus is to be updated by this APPLY statement. 

RESTORE 

The RESTORE statement causes the PTFs or user modifications 
processed by the APPLY statement to be removed from the 
operating system. The versions of the modules that were in use 
before the change are put into the/operating system libraries. 
Saved copies of macro definitions on the macro library and any 
required modules are reassembled and are put into the operating 
system libraries. 
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SMP Reference Summary (cont'd) 


RESTORE 


- SELECT¬ 
'S-- 


- 1 - 

- 1 *- 

- (-J— ptf number—— 


jTl 


LIB—l—library name—) 


A. 


SELECT (ptf number) 

specifies the PTFs or user modifications that are to be 
removed from the system. SELECT can be coded as S. 

LIB (library name) 

specifies the ddname of the permanent user library to be used. 
This is specified if the DLIBs do not contain the data for the 
correct module level to be used in restoring the operating 
system libraries. 

LOG 

This statement is used to put messages out on LOG. 


LOG-(-message-) 


message 

is written on LOG along with the time and date that the 
message was generated. Any character can be used between 
the parentheses. If parentheses are used, they must be 
balanced. 

Messages generated by the various SMP routines will also be on 
LOG along with any you generate. 

JCLIN 

The JCLIN statement causes SMP to read in the Stage I output 
from system generation or similar data. This output is used as 
data input to update or create CDS. 

JCLIN- 


ACCEPT 

The ACCEPT statement causes the modifications processed by an 
APPLY statement to be put into the DLIBs or a permanent user 
library. There can be any number of ACCEPT statements in an 
SMP job step. Once this statement has processed a modification, 
SMP cannot remove it from your system. 
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SMP Reference Summary (cont'd) 



If no operand is specified, all the PTFs or user modifications that 
have been processed by an APPLY and not an ACCEPT function 
will be put into the DLIBs or permanent user libraries. 

SELECT (ptf number) 

specifies the PTFs or user modifications that are to be put in 
the DLIBs or a permanent library specified in the LIB 
keyword. SELECT can be coded as S. 

EXCLUDE (ptf number) 

specifies the PTFs or user modifications that are not to be put 
in the DLIB or permanent library. All others will be 
processed. EXCLUDE can be coded as E. 

FORCE 

specifies that all PTFs or user modifications that have been 
processed by the APPLY or RECEIVE statement are to be 
put into the DLIBs or the permanent library. 

LIB (library name) 

specifies the permanent user library to be used instead of the 
DLIBs for the modifications specified in the ACCEPT 
statement in which this keyword is coded. 

NOLIB 

specifies that regular ACCEPT processing will occur but that 
no update will be made to the permanent libraries. To zap 
assembled modules, use the NOLIB keyword because the 
module does not exist on a DLIB data set. 

LIST 

This statement causes a listing to be put out that contains data 
from the history log data set (LOG) or the control data set (CDS). 


LIST 


CDS 


' j— MOD—^ y—A SSEM 


LOG- 


—^ j — DLIB—^ i —MAC — 


\-(_mm-dd — yy^— • —j-mm-dd-yy-)/ ^ 


->► 


JZl 


SYS 
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SMP Reference Summary (cont'd) 


CDS 

specifies that all members in CDS will be printed. If the 
ACDS is to be listed, the SMPCDS DD statement must 
point to the ACDS. 
option 

specifies the type of CDS members to be printed. Any 
combination of the following can be coded: 

MOD LMOD PTF DLIB 

MAC ASSEM SYS 

LOG [(mm dd yy j ty jmm dd yy)] 

specifies that the contents of LOG are to be printed. One data 
range may be specified as: mm is the month, dd is the day, and 
yy is the year. Specify mm as 00 through 12, dd as 00 through 
31, and yy as 00 through 99. Separate mm, dd, and yy with 
blanks. 

UCLIN 

The UCLIN statement is used to identify the statements 
immediately following it as update control language (UCL) 
statements. 


UCLIN 


ENDUCL 

The ENDUCL statement is used to identify the end of the update 
control language (UCL) statements. It must immediately follow 
the last UCL statement. 


ENDUCL 
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SMP Reference Summary (cont'd) 

Data Set Requirements Chart 
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SMP Reference Summary (cont'd) 

Modification Control Statements 
PTF Header Statement 

This header statement indicates the beginning of a PTF or 
modification and must be present. This statement must be the 
first one for each PTF or modification. 


++-PTF-(-ccnnnnn-) 


cc 

modification identification. Each IBM modification will start 
with TJ\ ‘A’, or T; these letters are restricted for IBM use 
only, 
nnnnn 

is a five-digit number unique for each modification. 

Verification Statement 

This statement causes system and release level checking to be done. 
If this statement is not present, no checking is done. More than 
one verification statement can be in a PTF or modification. Only 
one verification statement has to pass the checking process to 
allow the PTF or user modification to be put in the system. 



X 


f~^ :=== l 

PRE-(I-ptf number-1). 





c 

is the system code; S=OS, X=VS1, Y=VS2 (SVS), Z=VS2 (MV) 
nnn 

is the release number; for example, release 1 is coded as 010, 
release 21.6 is coded as 216 and so on. 

PRE (ptf number) 

specifies a prerequisite PTF or user modification number. 

That is the PTF or user modification specified must be in 
the system before the PTF or user modification being 
processed can be put in the system. 

SUP (ptf number) 

specifies a PTF or user modification that is superceded 
by the one being processed. 
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SMP Reference Summary (cont'd) 

Macro Header Statement 

This statement describes one total macro replacement and must 
immediately precede the macro definition replacement if it is in 
this input stream. If it is an inner macro definition that does not 
appear during system generation, the module(s) to be reassembled 
must be specified in this statement. If the replacement macro 
definition is in a text library that is a partitioned data set and the 
replacement does not immediately follow, the text library name 
must be specified. 


->► 


->► 


y'-TXLIB— ( — libname— 


++— MAC —(—macro name-) 

r DISTLIB—(-distlib -)-\ ^-S Sl-(-ccpfnnnn-) 






{- * - 

1 —( J—assem name——) 


r*— ASSEM — ( —assem name—*—) —^ 

->- L ---- 


macroname 

is the name of the macro instruction. 

TXLIB (libname) 

is the name of the text library where the replacement macro is 
located. 

DISTLIB (distlib) 

is the name of the lowest-level index name. 

SSI (ccpfnnnn) 

is the eight-byte hexadecimal system status information, 
cc 

is the change level of the module. Each release starts as 
00. Each change increases it by one. 

P 

is X‘l’ indicating a PTF. 
f 

is flags. 

XT IBM 

X‘5’ Critical and IBM. 

X‘9’ Dependency and IBM. 
nnnn 

are the last four digits of the PTF number. 

ASSEM (assem name) 

is the name of the module(s) that have to be reassembled; a 
maximum of 50 can be specified. 
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SMP Reference Summary (cont'd) 

Module Header Statement 

This statement describes one module that is in a PTF or user 
modification. It must immediately precede the object code (if 
there is any to be entered in this input stream). If the module is 
in a partitioned data set that is a text or link library, the name of 
the library must be specified. In this case, the object code does 
not follow. 


/—DISTLIB —I-distiib— )—\ 

++ —MOD— (— modname — )-2-—-—-——^—>- 


J— 


LEPARM-(-Minkage editor parms 





modname 

is the distribution library module name. 

DISTLIB (distlib) 

is the distribution library ddname. This is only used if the 
module did not exist when the system generation was done or 
was part of a total data set copy at system generation. 
LEPARM (linkage editor parms) 

any of the following linkage editor parameters can be 
specified for new modules; 

RENT OVLY NE 

REUS REFR STD 

SCTR DC 

AC=1 (VS only) 

ALIGN 2 (VS only) 

Specify STD to indicate that only the standard set (NCAL, 
SREF, LET, LIST) is to be used. 

D ALIAS (alias) 

is an alias that exists only on a DLIB; there can be one to five 
aliases specified. This is used to describe modules that are 
included under an alias name during system generation. 

T ALIAS (alias) 

is an alias that exists on an operating system library and a 
DLIB for copied modules; from 1 to 5 aliases may be specified. 
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SMP Reference Summary (cont'd) 

LKLIB (libname) 

is the link library ddname. It contains replacement modules 
that are in link edited format. 

TXLIB (libname) 

is the text library ddname. It contains replacement modules 
that are in object format and have not yet been link edited. 


IEBUPDTE Header Statement 

This statement describes the IEBUPDTE control statements and 
must immediately precede the IEBUPDTE statements. 

++-UPDTE-(-macname-)-—— 




macname 

is the name of the macro instruction. 

ASSEM (assem name) 

is the name of the module(s) that have to be reassembled; a 
maximum of 50 can be specified. 


£ 


{=*=1 

ASSEM —(assem name -1—) 


2l 


SPZAP Header Statement 


This statement describes SPZAP input. It must immediately 
precede the SPZAP control cards in the PTF or user modification. 


++ — ZAP — {— modname — 


£ 


DISTLIB- (- distlib- ) 


A 




FA 

(J-alias— 


^TALIAS-H—alias—L)_ 
/^DALIAS-(—alias )- 


modname 

is the distribution library module name. 

DISTLIB (distlib) 

is the distribution library ddname. 

TALIAS (alias) 

is an alias that exists on an operating system library and a 
DLIB for copied modules; from 1 to 5 aliases may be 
specified. 

DALIAS (alias) 

is an alias that exists only on a DLIB; from 1 to 5 aliases may 
be specified. 
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SMP Reference Summary (cont'd) 

Update Control Language (UCL) 

The update control language (UCL) statements provide informa¬ 
tion that SMP uses to create, change, or delete entries in the 
CDS. Following the statement format below and using the data 
from the UCL operand table, you can construct the UCL 
statements you need. 




ADD - Adds data to an existing CDS or ACDS entry or, if 
none exists, creates an entry. 

REP - Replaces a CDS or ACDS entry (or fields within an entry) 
with the information supplied in the keywords. 

DEL - Deletes either specified fields or an entire entry from the 
CDS or ACDS. 
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Update Control Language (UCL) Operands 


Type 

Name 

Options 

Descriptions 

DLIB 1 

(library dsname) 


1 to 8 characters — DLIB data set name 



SYSLIB(name[ jd jname] ...) 

ddname of DD statement for system library to which the 

DLIB was copied 

LMOD2 

(load module name) 


Operating system load module name 

1 to 8 characters 



SYSLIB(name[ ($ ) name] ... ) 

l >S 

System library name, 1 to 8 characters 



AC=1 

Authorization code (VS only) 



ALIGN2 

Align on 2K boundary (VS only) 



COPY# 

Copied at system generation; linkage editor attributes 
not available 



DC# 

Downward-compatible 



NEb 

Not editable 



OVLY# 

Overlay attribute 



REFR# 

Refreshable 



RENT# 

Reenterable 



REUS# 

Reusable 



SCTRd 

Scatter loadable 



STD# 

Standard linkage editor attributes only 

MAC 1 

(macro name) 


1 to 8 characters 



ASSEM(name[ {name] ...) 

Name of assembled module 1 to 8 characters 



( •) 

ID (modification identifier) 

2 characters 

MOD 1 

(module name)5 


1 to 8 characters — DLIB member name 



DLlBdibrary name) 

DLIB name 1 to 8 characters 



ID (module identifier) 

2 alphabetic characters 



LMOD(name[|d {name] ...) 

Operating system load module name 

1 to 8 characters 
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Options 

Descriptions 

PTF 

(ccnnnnn) 


Modification number; cc modification identifier, nnnnn 
unique modification number 



ACPTbJ 

APPL# 

REGEN 

DATE(yyddd)3 

MOD(name[ ^ [name] . . .)3#5 

Modification accepted 

Modification applied 

Modification in DLIB before system generation 

Date modification received 

DLIB member affected by modification 


\ .. 

MAC(name[ j # |name] . . . )3 

Macro affected by modification 



ZAP(name[| #|name] ... )3,5 

FORCE# 

SUP (ccnnnnn)^ 

XZAP(name[ j # |name] .... )3#5 

DLIB member affected by modification, which is a 
superzap. 

FORCE indicator 

Superceding modification number; cc modification 
identifier, nnnnn unique modification number. 

Module affected by modification which is an EXPAND 
with superzap. 

SYS 






SREL(srrr) 

NUCID(default identifier) 4 

PEMAX (nnn) 

TSO# 

s is system type - x=VS1, y=VS2 (SVS), z=VS2 (MVS), 
s=OS; rrr is release level i.e., 010 = release 1,216 = release 

21.6, etc. 

1 numeric character default nucleus identification used to 
save current nucleus; otherwise current nucleus not saved 
unless specified in APPLY statement. 

Maximum number of PTF elements; default is 50. 

Indicates TSO in the system. 

^To create a new entry specify all the keywords. 

2 ADD or REP cannot use this keyword to add or replace an 
entire load module type entry. Instead use the JCLIN 
control statement to obtain LMOD information from the 

Stage 1 output. ADD or REP can be used to change data 
in an existing load module entry. 

^To create a new entry, specify DATE either with SUP or 
with MOD, MAC, XZAP, or ZAP. Do not code the SUP 
option with MOD, MAC, XZAP, or ZAP. 

4 This keyword is required when adding the system entry 
for the first time. 

^Module name must be the name in the distribution library 
and not the load module name. 
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Section 9: Publications 


This section lists the publications that support VSl. Applicable TNLs 
and suffix numbers are not included. 

Note: OS/VS System Generation Introduction, GC26-3790, which 
supports VSl Release 1, is no longer included in this section; content 
relevant to VSl is included in OS /VSl System Generation Reference, 
GC26-3791. Operator’s Library: OS/VS1 RES, GC38-0330, is re¬ 
moved from the VSl library. Its content is included in Operator’s 
Library: OS/VSl Reference, GC38-0110. 

If additional publication information is required, refer to the OS/VSl 
Release 6 Guide, GC24-5116 and the IBM System/3 70 Bibliography, 
GC20-0001. 
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SY35-0005-5 

GC38-1005-7 


GC24-5082-1 

GC24-5095-2 

GC24-5090-6 

GC24-5113-0 
GC24-5114-1 
GC24-5116-0* 

GC24-5094-6 

GC24-5115-1 
GC26-3791-7 


GC26-3876-0** 
(GC26-3784) 
SY24-5159-3 

SY28-0605-4 
SY24-5160-4 

GC24-5099-3 
GC24-5100-3 

SY24-5168-0 
SY24-5169-0 

GC24-5091-5 

SY24-5155-5 
GC24-5103-2 

SY24-5162-0 
SY24-5163-0 
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37 RAS (Reliability, Availability, Serviceability): 
Testing, Service Aids, Problem Determination 

OS/VSl Debugging Guide 

OS/VS DSS Command Language Reference Summary 
OS/VS Dynamic Support System 
OS/VSl Dynamic Support System Logic 
OS/VSl OLTEP 
OS/VSl OLTEP Logic 

OS/VSl Recovery Management Support Logic 


OS/VSl Service Aids 
OS/VSl Service Aids Logic 

OS/VS Message Library: VS1 Service Aids and OLTEP 
Messages 

OS/VSl Service Aids Reference Summary 

OS/VS System Modification Program (SMP) 

System Programmer’s Guide 
OS/VS System Modification Program (SMP) Logic 

OS/VSl SYS1.LOGREC Error Recording 
OS/VSl SYS1.LOGREC Error Recording Logic 

DOS/VS and OS/VS TOLTEP for VTAM 
DOS/VS and OS/VS TOLTEP Logic 

38 Remote Job Entry (RJE, CRJE, RES, etc.) 

OS/MFT, OS/MVT, and OS/VSl CRJE 
Concepts and Facilities 

OS/MFT, OS/MVT, and OS/VSl CRJE Logic 


Operators Library: OS/VSl CRJE 
OS/MFT, OS/MVT, and OS/VSl CRJE System 
Programmer’s Guide 

OS/MFT, OS/MVT, and OS/VSl CRJE Terminal 
User’s Guide 

OS/VSl RES Account Facility Logic 
OS/VSl RES System Programmer’s Guide 
OS/VSl RES Workstation User’s Guide 


40 System Operation (messages, codes) 

OS/VS Message Library: VS1 Routing 
and Descriptor Codes 

OS/VS Message Library: VS1 System Codes 

OS/VS Message Library: VS1 System Messages 

System/370 Operator’s Reference Guide 

Operator’s Library: OS/VS Console Configurations 

Operator’s Library: OS/VSl Display Consoles 

Operator’s Library: OS/VSl Reference 

85 Data Processing - Introductory Manuals 

IBM Data Processing Glossary 

IBM Marketing Publications KWIC Index 

Introduction to Virtual Storage in System/370 

* These books are new to the publications list, 
but do not replace other books. 

** These books have changed titles and/or or¬ 
der numbers, and replace the order numbers 
shown in parentheses directly below this or¬ 
der number. 


GC24-5093-4 

GX28-0690-1 

GC28-0640-1 

SY28-0672-0 

GC28-0666-2 

SY28-0662-3 

SY24-5170-0** 

(SY27-7239) 

GC28-0665-1 

SY28-0635-2 

GC23-0005-0** 

(GC38-1006) 

GX23-0001-1 

GC28-0673-3 

SY28-0685-3 

GC28-0668-2 

SY28-0669-2 

GC28-0663-1 

SY28-0664-1 


GC30-2012-2 
GY30-2011-1 


GC38-0335-0 

GC30-2016-2 

GC30-2014-2 


SY28-0660-0 

GC28-6878-4 

GC28-6879-3 


GC38-1101-0** 
(GC38-1004) 
GC38-1003-7 
GC38-1001-6 

SR20-4460-0 

GC38-0120-5 

GC38-0255-3 

GC38-0110-7 


GC20-1699-4 
G320-1621-33 
GR20-4260-1 
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Indexes to OS/VS 1 publications are consoli¬ 
dated in the OS/VS 1 Master Index . This 
master index references other publications 
that contain additional information about 
the subjects listed here. 

A 

ABEND 

completion code 2-25 
macro 3-2, 3-11 
ACB macro 4-36 

access methods, DCB parameters for 4-14 

add instructions 1-19 to 1-21 

address format, virtual 1-64 

address translation, virtual-to-real 1-64 

aliases, CRJE commands 5-25 

AMD instructions 1-21 

ANSI 

control characters 1-17 
header and trailer labels 4-28, 4-29 
standard labels 4-24 to 4-26 
standard volume label 4-27 
user labels 4-30 
AS macro 7-2, 7-11 
ASCII 

fixed length records, tapes 4-32 
graphics and controls 1-2 to 1-6 
undefined length records, tapes 4-35 
variable length records, tapes 4-35 
ASCTR macro 7-2, 7-11 
ASLIST macro 7-2, 7-11 
ASMTRTAB macro 7-2, 7-7 
assembler 

label processing 4-31 
system attributes 1-61 
system conditional assembly 
expressions 1-60 
system constants 1-57 
system instructions 1-52 to 1-55 
system macro language statements 1-59 
system statements 1-56 
system variable symbols 1-62, 1-63 
associated logical channel word, how to 
find 2-34 
ATTACH 

completion codes 2-26 
macro 3-2, 3-11 

B 

BC mode, PSW 1-11 

BCDIC graphics and controls 1-2 to 1-6 


Index 
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BDAM 

completion codes 2-26, 2-27 
data sets, spanned records 4-33, 4-34 
macros 4-2 to 4-13 
bibliography 9-1 

binary synchronous communications, BTAM 7-14 
BISAM 

completion codes 2-27 to 2-29 
macros 4-2 to 4-13 
BLDL macro 4-2 

block descriptor word 4-33, 4-34 
block length 4-33, 4-34 
blocked records 4-32 to 4-35 
BP AM 

flow of control 4-43 
macros 4-2 to 4-13 
branch instructions 1-22 to 1-24 
BRDCST command 5-26 
BSAM 

completion codes 2-23 to 2-25 
flow of control 4-43 
macros 4-2 to 4-13 
BTAM 

completion codes 2-29 
macros 7-1 to 7-10 
BSP macro 4-2 

build list, how to find resident 2-35 
BUILD macro 4-2 
BUILDRCD macro 4-2, 4-3 

C 

CALL macro 3-3, 3-11 
CANCEL command 
CRJE 5-21 
operator 5-10 
RES 5-16 

CANCELMG macro 7-15 
capacities, linkage editor 6-7 
CAW (channel address word) 1-12 

CCW (channel command word) 1-12 

CENOUT command 5-26 

central operator commands, RES 5-9 to 5-14 

channel address word (CAW) 1-12 

channel command word (CCW) 1-12 

channel status word (CSW) 1-12 

CHAP 

completion codes 2-27 
macro 3-3, 3-11 
CIIGNTRY macro 7-2, 7-7 
CHECK macro 

data management 4-3 
TCAM 7-15 
VSAM 4-36 
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CHECKPT macro 7-15 
CHKPT 

completion code 2-28 
macro 4-3 
CKREQ macro 7-15 
clear I/O instruction 1-24 
CLOSE 

BTAM macro 7-2, 7-7 
completion codes 2-26 
data management macro 4-4 
TCAM macro 7-15 
VSAM macro 4-36 
CNOP alignment 1-9 
CNTRL macro 4-4 
COBOL label processing 4-31 
CODE macro 7-15 

code translation table 1-2 to 1-6 
codes 

completion 2-23 to 2-30 
condition 1-8 
I/O command 1-14 to 1-16 
machine-check interruption 1-13 
program interruption 1-9 
wait state 2-31, 2-32 
commands 

CRJE 5-21 to 5-22, 5-26 
operator 5-9 to 5-18 
RES workstation operator 5-16, 5-17 
TCAM operator 7-21 to 7-23 
VTAM network operator 7-39 
COMMBUF macro 7-15 
comment statement 5-2 
compare instructions 1-24 to 1-26 
completion codes 

for data management macros 4-2 to 4-12 
summary 2-23 to 2-30 
component support of label processing 
features 4-31 
condition codes 1-8 

conditional assembly expressions, system 
assembler 1-60 
CONFIGUR macro 7-2, 7-11 
configurations supported by 

BTAM, line and station 7-13 
TCAM, device 7-24 to 7-30 
contents supervisor completion 
codes 2-23 to 2-30 
CONTINUE command 5-21 
control characters, ANSI 1-17 
control codes, segment 4-33, 4-34 
control registers 1-7 
control statements 

linkage editor 6-6 


Index 
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SMP 8-68, 8-74 

conversational remote job entry (CRJE) 

5-1, 5-20 to 5-26 

conversion, decimal and hexidecimal 1-66 
convert instructions 1-26 
COUNTER macro 7-15 

CRJE (conversational remote job entry) 

5-1, 5-20 to 5-26 
CRJELINE macro 5-20 
CRJETABLE macro 5-20 
CRJEUSER macro 5-20 
CSW (channel status word) 1-12 
CTBFORM macro 7-15 
CTRGROUP macro 7-2, 7-12 
CTRLIST macro 7-3, 7-12 
CTRSCHED macro 7-3, 7-12 
CUTOFF macro 7-15 

D 

data management 

commands for CRJE 5-23 
macros 4-2 
section on 4-1 

data set, device allocation for 2-22 
data set record formats 4-32 to 4-35 
data set requirements, SMP 8-75 
data set utility programs 8-2 
DATAMGT macro 7-3 
DATETIME macro 7-15 
DCB macro 

BTAM 7-3, 7-7 
data management 4-5 
parameters for access methods 4—14 
DCBD macro 4-5 
DD statement 

format 5-6 to 5-8 
loader use of 6-10 

decimal and hexadecimal conversion 1-66 
DEFINE command 5-10 
definition of operands, utilities 
8-45 to 8-57 

definition of substitutional operands 
5-15, 5-18 
DELETE 

command 5-21 
macro 3-3, 3-11 
delimiter statement 5-2 
DEQ 

completion code 2-27 
macro 3-3, 3-12 
DETACH 

completion code 2-28 
macro 3-3, 3-1 
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DEULIST macro 7-3, 7-12 

device allocation for new data sets 2-22 
device capacities 4-14 
device configurations supported by 
BTAM 7-13, 7-14 
TCAM 7-24 to 7-30 
device information, UCB sense 
bytes 2-6 to 2—17 

device statistics table 2-19 to 2-21 

devices supported by VTAM 7-43 

DFTRMLST macro 7-3, 7-7 

diagnose instructions 1-26 

direct access device capacities 4-14 

dispatch resume PSW (DSPPSW) 2-4 

DISPGUID macro 7-3 

DISPLAY command 5-10, 5-16 

divide instructions 1-27, 1-28 

DOM macro 3-3, 3-12 

DSP interruption 2-3 

DSPPSW (dispatch resume PSW) 2-4 

DUMP command 5-10 

DXR macro 3-3, 3-12 

dynamic address translation 1-64 

E 

EBCDIC graphics and controls 1-2 to 1-6, 
1-67, 1-68 
EC mode, PSW 1-11 

ECPS (Extended Control-Program Support) 2-31 

EDIT and EDMK pattern characters 1-9 

EDIT command 5-21 

edit instructions 1-28 

edit subcommands, CRJE 5-22 

EDMK and EDIT pattern characters 1-9 

ENQ completion codes 2-28 

ENQ macro 3-3, 3-12 

ENQ/DEQ names 2-33 

ENDREQ macro 4-36 

EOV completion codes 2-27 

ERASE macro 4-36 

ERRORMSG macro 7-15 

ESETL macro 4-5 

ESR completion codes 2-29 

EVENTS (SVC 7A, 7D) completion codes 2-29 

exclusive OR instruction 1-28, 1-29 

EXCP completion codes 2-23 

EXEC command 5-21, 5-24 

EXEC statement 5-5 

execute instruction 1-29 

execute statement 

linkage editor 6-3, 6-4 
loader 6-9 

exit routine, CRJE 5-24 
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EXLST macro 4-36 

extended binary coded decimal interchange 
code (EBCDIC) 1-67, 1-68 
Extended Control-Program Support (ECPS) 2-31 

EXTRACT 

completion codes 2-26 
macro 3-4 


F 

FEOV macro 4-5 
FIND macro 4-5 
fixed-length records 4-32 
fixed storage locations 1-10 
flow of control in 

BSAM and in BPAM 4-43 
QSAM 4-42 

supervisor 3-35 to 3-39 
formatting, using service aids 8-66, 8-67 
FORTRAN label processing 4-31 
FORWARD macro 7-15 
FREEBUF macro 4-5 
FREEDBUF macro 4-5 
FREEMAIN 

completion codes 2-24, 2-25 
macro 3-4, 3-12 
FREEPOOL macro 4-5 

G 

GAM (graphics access method) completion 
codes 2-29 
GDUAS macro 7-3 
GDULIST macro 7-3 
GDUTRANS macro 7-3 
GENCB macro 4-37 
general information 1-1 
general services supervisor 3-31, 3-32 
GET macro 

data management 4-5 
TCAM 7-15 
VSAM 4-38 
GETBUF macro 4-6 
GETMAIN 

completion codes 2-24, 2-25 
macro 3-5, 3-12 
GETPOOL macro 4-6 

graphics access method (GAM) completion 
codes 2-29 

graphics and controls, BCDIC, EBCDIC, 
and ASCII 1-2 to 1-6 
GROUP macro 7-16 
GTF service aid 8-59 
GTRACE macro 3-5, 3-13 

guide to utility program functions 8-3, 8-4 
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II 

HALT command 5-10 
halt instructions 1-29 
have instructions 1-29 
header labels, ANSI 4-28, 4-29 
hexadecimal addition, multiplication, 
subtraction tables 1-65 
hexadecimal and decimal 
conversion 1-66 
HMAPTFLE service aid 8-63 
HMASPZAP service aid 8-64 
HMBLIST service aid 8-60 
HMDPRDMP service aid 8-61 
HMDSADMP service aid 8-58 
HOLD 

command 5-10, 5-16 
macro 7-16 

how to find 2-34 to 2-36 


I 

I/O command codes 1-14 to 1-16 
I/O interruption 2-3 
IBCDASDI utility 8-5, 8-6 
IBCDMPRS utility 8-7 
ICAPRTBL utility 8-8 
ICHNG macro 7-16 
ICOPY macro 7-16 
IDENTIFY macro 3-5, 3-13 
IEAEXSAV save area 2-4 
IEBCOMPR utility 8-9 


IEBCOPY utility 
IEBDG utility 8* 
IEBEDIT utility 
IEBGENER utility 
IEBIMAGE 8-18 
IEBISAM utility 
IEBPTPCH utility 
IEBTCRIN utility 
IEBUPDTE utility 
IEDHALT macro 7- 
IEDOPCTL macro 
IEHATLAS utility 
IEHDASDR utility 
IEHINITT utility 
IEHIOSUP utility 
IEHLIST utility 
IEHMOVE utility 
IEHPROGM utility 
IFCDIP00 service 
IFCEREPO service 
IFHSTATR utility 
IMCJOBQD service 
IMCOSJQD service 


8 - 10 , 8-11 
■12 to 8-14 
8-15 

8-16, 8-17 
8-20 

8 - 21 , 8-22 
8-23 to 8-27 
8-28 to 8-30 
•16 
-16 
8-31 

8-32 to 8-34 
8-35 
8-36 
8-37 

8-38 to 8-40 
8-41 to 8-43 
aid 8-61 
aid 8-63 
8-44 

aid 8-64 
aid 8-61 
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INBLOCK macro 7-16 
INBUF macro 7-16 
independent utility programs 8-2 
INEND macro 7-16 

information gathering, using service aids 
8-65, 8-67 

information, system 2-1 
INHDR macro 7-16 
INITIATE macro 7-16 
INMSG macro 7-16 
INTRO macro 7-16 
INVLIST macro 7-16 

insert characters instructions 1-29 
insert PSW-key instructions 1-30 
insert storage-key instruction 1-30 
installation variables, CRJE 5-25 
instruction formats, machine 1-^6 
instructions 

System/370 1-2 to 1-6, 1-19 to 1-51 
system assembler 1-52 to 1-55 
interrupt handlers 3-35 to 3-39 
interruption code, machine check 1-13 
IODEVICE macro, BTAM 7-3 
IORGSAV save area 2-4 
ISAM completion codes 2-23 

J 

JCL (job control language) 5-1 
JCL statements 

linkage editor 6^2 
loader 6-8 

job control language (JCL) 5-1 
job processing commands, CRJE 5-23 
job scheduler completion codes 2-30 
JOB statement 5-4 
job steps, incompatible in linkage 
editor 6-5 


labels 

ANSI header and trailer 4-28, 4-29 
ANSI standard volume 4-27 
ANSI user 4-30 
IBM standard 4-15, 4-16 
IBM standard data set 4-19, 4-20 
IBM standard volume 4-18 
processing features 4—31 
processing of ANSI standard 4-26 
processing of IBM standard 4-17 
user 4-23 

volume organization with ANSI 4-24, 4-: 
LERB macro 7-4, 7-8 
LERPRT macro 7-4, 7-8 
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limited channel logout 1-13 
line and station configuration supported 
by BTAM 7-13, 7-14 
LINK 

completion code 2-24 
macro 3-5, 3-13 
linkage editor 6-1 to 6-7 
linkage editor label processing 4-31 
linkage register conventions 2-5 
LISTBC command 
CRJE 5-21 
operator 5-10 
RES 5-16 

LISTDS command 5-21 
LISTLIB command 5-21 
LOAD 

completion code 2-24 
macro 3-6, 3-13 
load instructions 1-30 to 1-33 
load module control 3-27 
loader 6-1, 6-8 to 6-13 
LOCK macro 7-16 
LOCOPT macro 7-16 

logical channel word, associated 2-34 

logical records 4-33, 4-34 

LOG 

command 5-10, 5-16 
macro 7-16 
LOGOFF command 
CRJE 5-21 
operator 5-10 
RES 5-16 
LOGON command 
CRJE 5-21 
operator 5-11 
RES 5-16 

LOGTYPE macro 7-16 
LOPEN macro 7-4, 7-8 

M 

machine instruction formats 1-6 
machine-check interruption code 1-13 
macro language statements, system assembler 
1-59 

macro parameter notation, supervisor 3-10 

macro parameters, loader 6-11 

macros 

BTAM 7-2 to 7-10 
CRJE 5-20 

data management 4-2 
loader 6-10 
supervisor 3-2 to 3-9 
TCAM 7-15 to 7-21 
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VSAM 4-36 to 4-41 
VTAM 7-32 to 7-36 
2715 user table 7-11, 7-12 
mapping, using service aids 8-66, 8-67 
master scheduler completion codes 2-26 
MCOUNT macro 7-17 
MCPCLOSE macro 7-17 
message commands, CRJE 5-24 
MHGET macro 7-17 
MHPUT macro 7-17 
MODCB macro 4-38 
MODE command 5-11 

modification control statements, SMP 8-76 
MODIFY command 
CRJE 5-26 
operator 5-11 
RES 5-16 

module to SVC directory 3-23 to 3-26 

monitor call instruction 1-34 

MONITOR command 5-11, 5-16 

MOUNT command 5-10 

move instructions 1-34, 1—35 

MRCHECK macro 7-17 

MRELEASE macro 7-17 

MSG command 5-26 

MSGEDIT macro 7-17 

MSGFORM macro 7-17 

MSGGEN macro 7-17 

MSGLIMIT macro 7-17 

MSGRT command 5-11 

MSGTYPE macro 7-17 

multiply instructions 1-35 to 1—39 

N 

negative powers of 16 table 1-66 
no-operation instructions 1-39 
nonspanned variable-length records 4-33 
nonswtiched multipoint lines, BTAM 7-13 
NOTE macro 4-6 
null statement 5-2 


O 

on-line terminal test, in CRJE 5-25 

ONLTST macro 7-4, 7-8 

OPEN 

BTAM macro 7-2, 7-8 
completion codes 2-29 
data management macro 4-6 
TCAM macro 7-17 
VSAM macro 4-39 

open executor selectors, SAM 4-44 to 4-46 
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operands 

definition, for utilities 8-45 to 8-57 
substitutional 5-15, 5-18 
supervisor macro 3-11 to 3-16 
operator commands 

RES central 5-9 to 5-14 
RES workstation 5-16, 5-17 
section on 5-1 
TCAM 7-22 to 7-24 
VTAM network 7-39 
OPTION macro 7-19 

options, applicable processing £ devices 
supported by VTAM 7-37 
OR instructions 1-39 
ORIGIN macro 7-17 
OUTBUFF macro 7-17 
OUTEND macro 7-18 
OUTHDR macro 7-18 
OUTMSG macro 7-18 
OUTPUT command 5-21 

overlay supervisor completion codes 2-27 
P 

pack instruction 1-39 

PAGETUNE command 5-11 

paging completion code 2-26 

parameter notation, supervisor macro 3-10 

parameters, DCB, for access methods 4-14 

parameters, SIZE and REGION guidelines 6-4 

PARAMNUM macro 7-4 

PARMLIST macro 7-4 

passwords, CRJE 5-25 

patching, using service aids 8-65, 8-67 

PATH macro 7-18 

PCB macro 7-18 

PDAB macro 4-7 

PDABD macro 4-7 

PDSAV save area 2-4 

PEND statement 5-2 

PGOUT macro 3-6, 3-13 

PGRLSE macro 3-6, 3-13 

PISAV save area 2-4 

PL/I label processing 4-31 

POINT macro 

data management 4-7 
TCAM 7-18 
VSAM 4-39 

point-to-point communications, BTAM 7-14 
POST 

completion codes 2-23 
macro 3-6, 3-13 
powers of 16 table 1-66 
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printing, using service aids 8-66, 8-67 
PRIORITY macro 7-18 
PROC statement 5-2 

processing options applicable, and devices 
supported by VTAM 7-43 
program interrupt control 3-30 
program interruption codes 1-9 
program status word (PSW) 1-11 
programming conventions, SVC routines 3-17 
prologue completion codes 2-30 
PRTOV macro 4-7 
PSW (program status word) 1-11 
publication support, section on 9-1 
purge translation lookaside 
buffer instruction 1-39 
PUT macro 

data management 4-7 
TCAM 7-18 
VSAM 4-39 
PUTX macro 4-7 

Q 

QISAM 

completion codes 2-23 to 2-30 
macros 4-2 to 4-13 
QRESET macro 7-18 
QSAM 

completion codes 2-23, 2-30 
flow of control 4-42 
macros 4-2 to 4-13 
QSTART macro 7-18 

R 

RAM list, how to find 2-36 
RDJFCB completion codes 2-28 
read direct instruction 1-40 
READ macro 

BTAM 7-5, 7-8 
data management 4-7 
TCAM 7-18 
READY macro 7-18 

record descriptor word 4-33, 4-34 
record formats 

data set 4-32, 4-35 
linkage editor 6-7 
REDIRECT macro 7-18 

REGION parameter, linkage editor 6-4 
register contents, for SVCs 3-18 to 3-22 
register conventions, linkage 2-5 
register usage 2-4 
registers, control 1-7 
RELBUF macro 7-5, 7-9 
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RELEASE command 5-12, 5-16 
RELEX macro 4-8 
RELSE macro 4-8 

remote entry services (RES) 5-1, 

5-9 to 5-18 

REPLY command 5-12, 5-16 
REQBUF macro 7-5, 7-9 
requirements, virtual storage for 
loader 6—13 

RES (remote entry services) 

central operator commands 5-9 to 5-14 
definition of substitutional 
operands 5-18 
section on 5-1 
workstation operator command 
outlines 5-16, 5-17 
PESET command 5-12, 5-16 
reset reference bit instruction 1-40 
RESETPL macro 7-5, 7-9 
resident build list, how to find 2-36 
restrictions, CRJE 5-25 
RETRY macro 7-18 
return codes 

IEBCOMPR 8-9 
IEBCOPY 8-10 
IEBDG 8-12 
IEBEDIT 8-15 
IEBGENER 8-16 
IEBIMAGE 8-18 
IEBISAM 8-20 
IEBPTPCH 8-21 
IEBTCRIN 8-23 
IEBUPDTE 8-28 
IEHDASDR 8-32 
IEHINITT 8-35 
IEHIOSUP 8-36 
IEHLIST 8-37 
IEHMOVE 8-38 
IEKPROGM 8-41 
linkage editor 6-5 
loader 6-12 
RETURN macro 3-6, 3-14 
ROUTE command 

operator 5-12, 5-16 
RES 5-17 

routing codes for multiple consoles, 

CRJE 5-25 


RPG label processing 4-31 
RPL macro 4-39 


S 

SAM open executor selectors 4-44 to 4-46 
save areas, how to find 2-4 
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save area format 2-2 
SAVE macro 3-6, 3-14 
SCREEN macro 7-18 
segment control codes 4-33, 4-34 
segment descriptor word 4-33, 4-34 
segment length 4-33, 4-34 
segment table entry 1-64 
SEGWT macro 3-6, 3-14 
SEND command 
CRJE 5-21 
operator 5-12 
RES 5-17 

sense information, UCB 2-6 to 2-17 
SEQUENCE macro 7-18 

service aids reference summary 8-58 to 8-68 
session management commands, CRJE 5-23 
SET command 5-12 
set instructions 1-40, 1-41 
SETEOF macro 7-19 
SETEOM macro 7-19 
SETL macro 4-8 
SETPRT command 
operator 5-12 
RES 5-17 

SETPRT macro 4-8, 4-9 

SETSCAN macro 7-19 

shift instructions 1-41, 1-42 

SHOW command 5-26 

SHOWCB macro 4-39, 4-40 

signal processor instruction 1-42 

SIO interruption 2-3 

SIZE parameter, linkage editor 6-4 

SLOWPOLL macro 7-19 

SMF (system management facilities) 5-1, 5-19 

SMFPRMxx parameters 5-19 

SMP Reference Summary 8-69 

SNAP macro 3-6, 3-14 

sort/merge label processing 4-31 

spanned variable-length records 4-33, 4-34 

SPIE macro 3-6, 3-14 

STAE macro 3-7 

standard command code assignments 1-14 
standard data set label, IBM 4-19, 4-20 
standard label processing, ANSI 4-26 
standard label processing, IBM 4-15, 4-16 
standard volume label, ANSI 4-27 
standard volume label, IBM 4-18 
START command 
CRJE 5-26 
operator 5-12 
RES 5-17 
STARTF command 
operator 5-13 
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RES 5-17 

start I/O instructions 1-42, 1-43 
start-stop communications, BTAM 7-13 
STARTMH macro 7-19 
statements 

comment 5-2 
DD 5-6 to 5-8 
delimiter 5-2 
EXEC 5-5 
JOB 5-4 
null 5-2 
PEND 5-2 
PROC 5-2 

station configurations supported 
by BTAM 7-13, 7-14 
statistics table, device 2-18 to 2-21 
STATUS command 5-21 

status information commands, CRJE 5-23 
STEND macro 7-5, 7-12 
STIMER macro 3-7, 3-14 
STIMERE macro 3-7, 3-14 
STOP command 
CRJE 5-26 
operator 5-13 
RES 5-17 

STOPMN command 5-13, 5-17 

storage locations, fixed 1-10 

storage organization 2-41 

storage requirements, loader 6-13 

storage subpools 2-37 to 2-40 

store instructions 1-43 to 1-45 

STOW macro 4-10 

SUBMIT command 5-21 

subpools, storage 2-37 to 2-40 

substitutional operands defined 5-15, 5-18 

subtract instructions 1-45 to 1-48 

summary of supervisor operands 3-11 to 3-16 

supervisor 

flow of control 3-35 to 3-39 
information 3-1 to 3-39 
macro operands, summary of 3-11 to 3-16 
macro outlines 3-2 to 3-9 
macro parameter notation 3-10 
supervisor call 

completion codes 2-23 
instruction 1-49 
SVC directory 3-23 to 3-26 
SVC instruction 1-49 
SVC interruption 2-3 

SVC load list, how to find resident 2-36 
SVC register contents 3-18 to 3-22 
SVC routines, programming conventions 3-17 
SVC table format 2-35, 2-36 
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SVCs, how to find type 1 and type 2 2-35 

SVCSAV save area 2-4 

SWAP command 5-13 

SWAP completion codes 2-29 

SWITCH command 5-13 

switched lines, BTAM 7-13 

SYNADAF macro 4-10 

SYNADRLS macro 4-10 

synchronization 3-28, 3-29 

syntax checkers, CRJE 5-25 

syntax format, SMP 8-69 

SYSOUT class, CRJE 5-25 

system 

ENQ/DEQ names 2-33 
information 2-1 

operator commands for CRJE 5-26 
register usage 2-4 
utility programs 8-2 
system assembler 
attributes 1-61 

conditional assembly expressions 1-60 
constants 1-57 
instructions 1-52 to 1-55 
macro language statements 1-59 
statements 1-56 
variable symbols 1-62, 1-63 
system management facilities (SMF) 

5-1, 5-19 

system restart completion codes 2-30 
System/370 instructions 1-19 to 1-51 

T 

TABSET command 5-21, 5-26 
task control 3-33 
task switch interruption 2-3 
TCAM 7-1, 7-15 to 7-30 
TCAM completion codes 2-28 
TCBSAV save area 2-4 
TCHNG macro 7-19 
TCOPY macro 7-19 

terminal commands and functions, CRJE 
5-21 to 5-24 
TERMINAL macro 7-20 

terminals operating in a VTAM network 7-38 

termination 3-32 

TERRSET macro 7-20 

test instructions 1-49, 1-50 

TESTCB macro 4-40, 4-41 

TGOTO macro 7-20 

TGROUP macro 7-5, 7-12 

time intervals 3-28, 3-29 

TIME macro 3-8, 3-15 

TLIST macro 7-20 
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TPDATE macro 7-20 
TPEDIT macro 7-5, 7-20 
TPROCESS macro 7-20 
trace table 2-3 

trailer labels, ANSI 4-28, 4-29 

TRANSLAT macro 7-5 

translate instructions 1-50 

translation, virtual-to-real address 1-64 

TRLIST macro 7-5, 7-12 

TRNSLATE macro 7-5, 7-9 

TRSLRCTW macro 7-5, 7-9 

TRSLRCT3 macro 7-5, 7-9 

TRUNC macro 4-11 

TTABLE macro 7-20 

TTIMER macro 3-8, 3-15 

TWAIT macro 7-5, 7-9 

TYPETABLE macro 7-20 

U 

UCB sense information 2-6 to 2-17 
UCL operands, SMP 8-80 
unblocked records 4-3 to 4-35 
undefined-length records 4-35 
unit record device statistics table 
entry 2-18 
UNLOAD command 5-13 
UNLOCK macro 7-20 
unpack instruction 1-51 
user label 4-21, 4-30 
userid, CRJE 5-25 
USERID command 5-26 
utilities 8-1 

utilities label processing 4-31 
utility programs listed by class 8-2 

V 

variable length records for ASCII 
tapes 4-35 
VARY command 5-13 
virtual address format 1-64 
virtual storage allocation 3-34 
virtual storage organization 2-41 
virtual storage requirements, loader 6-13 
virtual-to-real address translation 1-64 
volume organization 

ANSI standard labels 4-24, 4-25 
IBM standard labels 4-15, 4-16 
VSAM macros for data access 4-36 to 4-41 
VTAM, devices supported by 7-37 
VTAM macros for data access 7-32 
VTAM network 

network operator commands 7-39 
terminals that can operate in a 7-38 
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WAIT completion codes 2-28 
WAIT macro 

BTAM 7-6, 7-9 
data management 4-11 
supervisor 3-8, 3-16 
wait state codes 

ICAPRTBL utility 8-8 
system 2-31, 2-32 
WAITR macro 3-8, 3-16 
workstation operator commands, 
RES 5-16, 5-17 
write direct instruction 1-51 
WRITE macro 

BTAM 7-5, 7-10 

data management 4-11, 4-12 

TCAI1 7-20 

WRITELOG command 5-14 
WRITER command 5-14, 5-17 
WTL macro 3-8, 3-16 
WTO macro 3-9, 3-16 
WTO/WTOR completion codes 2-26 
WTOR macro 3-9, 3-16 

X 

XCTL 

completion code 2-24 
macro 3-9, 3-16 
XLATE macro 4-12 

Z 

zero and add instruction 1-51 


1052 printer-keyboard codes 1-17 
1403/2821 printer codes 1-14 
2305 

capacity 4-13 
linkage editor capacity 6-7 
2305/2835 DASD codes 1-15, 1-16 
2314 

capacity 4-15 
DASD codes 1-15, 1-16 
device statistics table entry 2-18 
linkage editor capacity 6-7 
2319 

capacity 4-15 
DASD codes 1-15, 1-16 
linkage editor capacity 6-7 
2400 series device statistics table 
entry 2-19 
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2400 series magnetic tape codes 2-19 
2400 card reader/punch codes 1-17 
2715 user table macros 7-11, 7-12 
2820 control unit, device statistics 
table entry 2-19 

2841 control unit, device statistics 
table entry 2-19 
3203/IPA printer codes 1-14 
3211/3811 printer codes 1-14 
3330 linkage editor capacity 6-7 
3330 series DASD codes 1-15, 1-16 
3330/3333 capacity 4-15 
3340 

capacity 4-15 
DASD codes 1-15, 1-16 
linkage editor capacity 6-7 
3350 

command codes 1-16 
device capacity 4-15 
3400 magnetic tape device statistics 
table entry 2-19 

3410/3411 magnetic tape codes 1-15 
3410 series magnetic tape device statistics 
table entry 2-20 

3420/3803 magnetic tape codes 1-15 
3420 series magnetic tape device statistics 
table entry 2-20 
3504, 3505 card reader codes 1-14 
3525 card punch codes 1-14 
3540 diskette I/O codes 1-16 
standard labels 4-23 
device statistics table entry 2-21 
3800 printing subsystem 

device statistics table entry 2-21 
device capacity 4-15 
command codes 1-18 
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